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

Категория: Delphi/Pascal

2011-12-12 23:54:21

code: #pascal

Program Case9;
Var
D,M:Integer;
Begin
WriteLn('Введите D (день) и M (месяц):');
ReadLn(D,M);
Case D Of
1:Begin
Case M of
1,2,4,6,8,9,11: D := 31;
3: D:=28;
Else 
D:=30;
End;
Inc(M);
End;
Else 
Inc(D);
End;
WriteLn('Cледующая дата: ',D,'.',M); 
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Sample Code

категории

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

Похожие статьи: