Составить программу решающую A*X^2+B=C. числа A,B,C вводятся с клавиатуры. результатом работы является X, выводящий с новой строки с точностью до 4 знаков после запятой

1

Ответы и объяснения

2012-12-18T13:25:06+00:00

Program Program1;
Var
A,B,C,X:real;
begin
randomize;
writeln('Веедите значение A:');
readln(A);
writeln('Веедите значение B:');
readln(B);
writeln('Веедите значение C:');
readln(C);
X:=SQRT((C-B)/A);
writeln;
writeln('X=',X:0:4);
end.