GlennRee

08.01.2022 04:58 •  Информатика

Написал программу по вычислению корней кв. уравнения, но не понял, что надо вводить в окно, var a,b,c: integer; x1,x2,d: real; begin readln(a,b,c); if a=0 then writeln('уравнение не квадратное') else begin d: =sqrt(b*b-4*a*c); if d< 0 then writeln('уравнение не имеет корней'); if d=0 then begin x1: =(-1*b)/(2*a); writeln(x1); end; if d> 0 then begin x1: =(-1*b)-d/(2*a); x2: =(-1*b)+d/(2*a); writeln(x1,' ',x2); end; end readln; end.