Question

Помогите по Паскалю!
Нужно сделать программу по заданию. Начало уже написал учитель, я в этом не понимаю ничего.. ​

Answer 1

var a,b,c,x,x1,x2,d:real;

begin

writeln('a,b,c>>');

readln(a,b,c);

if a=0 then writeln('не квадратное')

else begin

d:=b*b-4*a*c;

if d<0 then writeln('корней нет')

else

if d=0 then begin x:=-b/(2*a);

writeln('x= ', x)

end

else begin

x1:=-b+sqrt(d)/(2*a);

x2:=-b-sqrt(d)/(2*a);

writeln('x1= ',x1, 'x2= ', x2); end

end

end.