Задача о количестве дней в месяце

[Альмир]

Задача о количестве дней в месяце

Помогите пожалуйста)
Составить программу которая по заданному году и номера месяца, ,будет выводить, количество дней в этом месяце)

 

[Vladimir_S]

Помогите пожалуйста)
Составить программу которая по заданному году и номера месяца, ,будет выводить, количество дней в этом месяце)

Легко:

Var
 Year:Word;
 Month:Byte;
Begin
 Write('Year: ');
 Readln(Year);
 Write('Number of month: ');
 Readln(Month);
 Write('Number of days: ');
 Case Month of
   1: writeln('31');
   2: if (((Year mod 4)=0) and ((Year mod 100)<>0)) or
         (((Year mod 100)=0) and ((Year mod 400)=0)) then
         writeln('29') else writeln('28');
   3: writeln('31');
   4: writeln('30');
   5: writeln('31');
   6: writeln('30');
   7: writeln('31');
   8: writeln('31');
   9: writeln('30');
  10: writeln('31');
  11: writeln('30');
  12: writeln('31');
 end;
 Readln
End.

И не надо цепляться к чужим темам: у нас это не принято.