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')
Не нашли ответ?
Похожие вопросы