Даны номер дня и номер месяца текущего года

Question

Даны номер дня и номер месяца текущего года (число – от 1 до 31, месяц – от 1 до 12). Определить правильностьдаты.

Answer 1

67

kapital

08 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить