Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

В Паскале abc написать программу, вычисляющую корни квадратного уравнения (используйте условный оператор для сравнения дискриминанта с нулем)

Ответ оставил Гость

Var a, b, c, x1, x2, D:real;
begin
writeln (Введите значение a, b и c);
readln (a, b, c);
D:=sqr(b)-4*a*c;
if D>0 then
begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b-sqrt(D))/2*a;
writeln (x1 = , x1, x2 = , x2)end
else
writeln (Корней нет);
end.