• 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.

    Как можно переделать программу, выдает ошибку?

Ответы 2

  • а можно укоротить прогу как нибудь?
    • Автор:

      micah
    • 6 лет назад
    • 0
  • точку с запятой убери после else if b<>0 then writeln ('Korney net')
    • Автор:

      rubber
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years