Задание:
Складіть програму яка перевіряє, чи є рік високосним. Для користувача передбачте відповіднесповіщення
Решение:
Var y: integer; begin read (y); writeln (y mod 400=0) or (y mod 4=0) and (y mod 100 <> 0); end.
Знаете другой ответ?
Складіть програму яка перевіряє, чи є рік високосним. Для користувача передбачте відповіднесповіщення
Var y: integer; begin read (y); writeln (y mod 400=0) or (y mod 4=0) and (y mod 100 <> 0); end.
Знаете другой ответ?