• помогите найти ошибку в записи программы. Перепишите программу в исправленном виде.
    program exmp1
    var C:char
    begin
    write
    Real(A,B,C)
    write
    If a +b >c and b+c >a and a+c > b
    then write ('существует.')
    else write ('не существует'.)
    end

Ответы 1

  • var   a, b, c: real;begin  read(a, b, c);  if (a + b > c) and (b + c > a) and (a + c > b)  then write('существует.')  else write('не существует.')end.
  • Добавить свой ответ

Войти через Google

или

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

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

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