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

Альмир · 11.12.2013, 19:32

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

Vladimir_S · 11.12.2013, 20:34

Цитата:

Сообщение от Альмир

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

Легко:

Код:

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.

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

11.12.2013, 19:32	#1 (permalink)
Альмир Новичок Регистрация: 11.12.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача о количестве дней в месяце Помогите пожалуйста) Составить программу которая по заданному году и номера месяца, ,будет выводить, количество дней в этом месяце)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070