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.
Объяснение:
Не учитывает високосность года
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.
Объяснение:
Не учитывает високосность года