• Pascal информатика. Определить лежит ли число в диапазоне (-30,60)
    СРОЧНО ПОМОГИТЕ, ДАЮ 15 БАЛЛОВ

Ответы 2

  • Var a:integer;BeginRead(a);If (a>-30) and (a<60) then write('yes') else write('no');End.
    • Автор:

      lucyf42n
    • 6 лет назад
    • 0
  • PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  if ReadReal.Between(-30,60) then Writeln('Входит')  else Writeln('Не входит')end.
  • Добавить свой ответ

Войти через Google

или

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

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

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