Var a,b,x: real; begin write ('vvedite koaficient a,b»'); readln (a,b); if a< > 0 then begin x: = -b/a; writeln ('koren yravnenia x=', x: 9: 3); end else if b< > 0 then writeln ('korney net'); else writeln ('x- luboe chislo'); end. как можно переделать программу, выдает ошибку?

Coolgirl03    2   09.07.2019 03:10    0