введите число - номер месяца (любого) и определите сколько дней в этом месяце.

foton228 foton228    3   20.04.2020 20:27    0

Ответы
pinjan2004 pinjan2004  09.08.2020 12:21

PascalABC.NET 3.5.1

begin

 var day: integer->integer := x -> 28 + (x + floor(x/8)) mod 2 + 2 mod x + 2 * floor(1/x);

 var x := ReadInteger();

 Print($'В месяце {x} {day(x)} дней');

end.

Объяснение:

Не учитывает високосность года

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика