Написал программу, в конце второго оператора if выдает ошибку, . program uravnenii; var a,b,c,d,x1,x2 : real; begin writeln ('введите значения старшего (a) второго (b) и свободного (с) членов'); readln (a,b,c); d: = sqr(b)-4*a*c; if (d> =0) then write ('решения существуют'); if (d> 0) then writeln ('и их два') else writeln ('и оно всего одно') else writeln ('решений не существует') begin d: = sqr(b)-4*a*c; if (d> =0) then b: = -b x1: =(b+sqrt(d))/4*a x2: =(b-sqrt(d))/4*a writeln (x1,x2) else exit end; end.

StarBoy12ewq    2   23.04.2019 22:23    0