Найти Х из пропорции

@slimyonok · Регистрация: 13.09.2010

Найти Х из пропорции ab/x bc/ac.
накалякал вот так,с учетом того,что всё сокращается кроме а)) но наверно это не правильно(
подскажите пожалуйста

Pascal

program rg;
var a,b,c,x:real;
begin
writeln('введите а b c');
readln(a,b,c);
x:=a*a;
writeln('X равен = ',x)
end.

@NasmAPIk · 23.10.2010, 18:27

ab/x=bc/ac => x= ab*ac/bc

Pascal

program rg;
var a,b,c,x:real;
begin
writeln('введите а b c');
readln(a,b,c);
x:=ab*ac/bc;
writeln('X равен = ',x)
end.

	23.10.2010, 18:27