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'); els...

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. Как можно переделать программу, выдает ошибку?
Гость
Ответ(ы) на вопрос:
Гость
точку с запятой  убери после else if b<>0 then writeln ('Korney net')
Не нашли ответ?
Ответить на вопрос
Похожие вопросы