Вывести значение D и M для даты, предшествующей указанной

@2k7fakel · Регистрация: 26.10.2012

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

Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты, предшествующей указанной.

@p@$#@ · 29.11.2012, 11:39

Pascal

CONST month: array[0..11] of integer=(31,31,28,31,30,31,30,31,31,30,31,30);
VAR
      d,m: integer;
BEGIN
Read(d,m);
if d=1 then begin
  dec(m);
  d:=month[m]
end
else dec(d);
if m=0 then m:=12;
Writeln(d,' ',m)
END.

Это конечно если я правильно понял условие...

@2k7fakel 0 / 0 / 0 Регистрация: 26.10.2012 Сообщений: 22
		1
	Вывести значение D и M для даты, предшествующей указанной 29.11.2012, 03:39. Показов 4296. Ответов 1 Метки нет (Все метки) Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты, предшествующей указанной. 0

	29.11.2012, 11:39

Вывести значение D и M для даты, предшествующей указанной

Решение