Ответы 2

  • спасибо
    • Автор:

      vance
    • 6 лет назад
    • 0
  • var i,a,b:integer;er:boolean;beginRepeat  Write('Введите a: ');  Readln(a);  Write('Введите b: ');  Readln(b);  if a*b<0 then begin    er:=true;    Writeln('Ошибка. Корень из отрицательного числа вычислять нельзя.'); end;until not(er=true);Writeln('SQRT(a*b) = ',sqrt(a*b));end.
  • Добавить свой ответ

Войти через Google

или

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

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

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