Задание:
Составьте программу, которая определяет, принадлежит ли введенное целое число x интервалу (10, 20), и выводит на экран соответствующее сообщение: "Принадлежит» либо «Не принадлежит»
Решение:
program zadacha; vara: integer; beginread (a); if (a>=10) and (a <= 20) thenwrite ('Принадлежит') elsewrite ('Не принадлежит') end.
Знаете другой ответ?