Журналист
Святослав 1 ноября 2019 в 10:08

Составе программу которая определяет принадлежит ли введенное целое число x интервалу (10,20), и выводит на экран соответствующие сообщение : "Принадлежит " либо " не принадлежит "

Как понимаю, числа 10 и 20 в интервал не входят, учитывая круглые скобки. Тогда так.


ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ Приём, Вывод ИЗ "...ОтделыОбмен";

ПЕР
  число: ЦЕЛ;

УКАЗ
  число := Приём.Число();
  ЕСЛИ число gt; 10 И число lt; 20 ТО
    Вывод.Цепь("^Принадлежит.")
  ИНАЧЕ
    Вывод.Цепь("^Не принадлежит.")
  КОН

КОН Задание.
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте