Question

Написать программу в паскаль: 1)составьте программу, которая по заданному году и номеру месяца определит кол-во дней в этом месяце. 2)для любого 2-ух значного числа, вывести его значение в словесной форме.

Answer 1

1)
var y,m,d:integer;
begin
read(y,m);
case m of
1,3,5,7,8,10,12: d:=31;
4,6,9,11: d:=30;
2:if(y mod 4<>0) then d:=28 else
if(y mod 100<>0) then d:=29 else
if(y mod 400<>0) then d:=28 else
d:=29;
end;
writeln(d);
end.