написать програму для ПАСКАЛЬ ** уравнение ах(в квадрате)+bx+c=0. нужна только программа,...

Question

написать програму для ПАСКАЛЬ на уравнение ах(в квадрате)+bx+c=0. нужна только программа, чтобы я ввела в ПАСКАЛЬ.

Answer 1

var a,b,c,x1,x2,D:real;
begin
Writeln('Введите коэффициенты квадратного уравнения');

Write('a = '); readln(a);
Write('b = '); readln(b);
Write('c = '); readln(c);
D:=b*b-4*a*c;
if D<0 then writeln('Действительных корней нет')<br>else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln('x1 = ',x1);
Writeln('x2 = ',x2);
readln
end;
end.