var a, b, c,d, x1, x2:Real;
begin
write('a=');ReadLn(a);
Write('b=');ReadLn(b);
Write('c=');ReadLn(c);
d:=sqr(b)-4*a*c;{вычислен дискриминант}
if d<0 then begin writeln('нет решения');break ;end;
if d=0 then begin WriteLn('Одно решение');WriteLn('x=' ,-b/(2*a));end;
WriteLn('x1=',(-b+Sqrt(d))/(2*a));
WriteLn('x2=',(-b-Sqrt(d))/(2*a));
readln;
end.
Объяснение:
Я профи в этом
Эта программа кроме дискриминанта ещё найдёт иксы к тому же если нет решения, программа напишет нет решения
Я смог
