Var a,b,d,c: integer; begin d: =sqr(9)=4*a*c; if d< 0 then cообщить; нет; решения; x1: =(-b+sqrt(d))/2*a; write ; сообщить; результат; end где ошибка в 4 строке?

Raf4ik15    1   07.10.2019 10:00    0