Написать программу в Паскаль:

1) Составьте программу, которая по заданному году и номеру месяца определит кол-во дней в этом месяце.

2) Для любого 2-ух значного числа, вывести его значение в словесной форме.

Question

Информатика

Епифан

23 декабря, 00:27

Написать программу в Паскаль:

1) Составьте программу, которая по заданному году и номеру месяца определит кол-во дней в этом месяце.

2) Для любого 2-ух значного числа, вывести его значение в словесной форме.

+5

Ответы (1)

Знаете ответ?

Дроня · 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 40) then d:=28 else

if (y mod 1000) then d:=29 else

if (y mod 4000) then d:=28 else

d:=29;

end;

writeln (d) ;

end.