Составе программу которая определяет принадлежит ли введенное целое число x интервалу (10,20), и выводит на экран соответствующие сообщение : "Принадлежит " либо " не принадлежит "
Составе программу которая определяет принадлежит ли введенное целое число x интервалу (10,20), и выводит на экран соответствующие сообщение : "Принадлежит " либо " не принадлежит "
Ответ(ы) на вопрос:
Как понимаю, числа 10 и 20 в интервал не входят, учитывая круглые скобки. Тогда так.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём, Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число();
ЕСЛИ число > 10 И число < 20 ТО
Вывод.Цепь("^Принадлежит.")
ИНАЧЕ
Вывод.Цепь("^Не принадлежит.")
КОН
КОН Задание.
Не нашли ответ?
Похожие вопросы