Задание:
Даны номер дня и номер месяца текущего года (число – от 1 до 31, месяц – от 1 до 12). Определить правильностьдаты.
Решение:
Var a,b: integer; beginreadln (a,b); if not (a in [1… 31]) or not (b in [1… 12]) then writeln ('NOT CORRECT') else writeln ('CORRECT'); end.
Знаете другой ответ?