Question

Помогите пожалуйста!! Даю 20 баллов!! Только пожалуйста, не пишите бред, прошу. Если не знаете – не отвечайте, пж​

Answer 1

Ответ:

var a,b,c,D: real;

begin

writeln('программа решения квадратного уравнения ax^2+bx+c=0');

write('a=');

readln(a);

write('b=');

readln(b);

write('c=');

readln(c);

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

if a=0 then write('a=0 => уравнение вырождается в линейное => x=-c/b=',-c/b)  

else if D>0 then begin

writeln('x1=',(-b+sqrt(D))/(2*a));

writeln('x2=',(-b-sqrt(D))/(2*a));

end else if D=0 then writeln('x1=x2=',-b/(2*a))

else writeln('уравнение не имеет действительных корней');

end.