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

@DamiRik · Регистрация: 11.03.2014

Author24 — интернет-сервис помощи студентам

Помогите решить:
Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце.

@bormant · 25.03.2014, 22:26

Pascal

const days: array [1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
var m, y: integer;
begin
  repeat
    Write('Введите год и месяц: '); ReadLn(y,m);
  until m in [1..12];
  if m<>2 then WriteLn(days[m])
  else WriteLn(days[m]+ord(((y mod 4=0)and(y mod 100<>0))or(y mod 400=0)));
end.

@DamiRik 0 / 0 / 0 Регистрация: 11.03.2014 Сообщений: 20
		1
	Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце 25.03.2014, 19:07. Показов 3345. Ответов 1 Метки нет (Все метки) Помогите решить: Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце. 0

	25.03.2014, 22:26

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

Решение