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

Категория: Delphi/Pascal
2011-12-12 23:53:32
code: #pascal
Program Case8;
Var
D,M:Integer;
Begin
WriteLn('Введите день и месяц:');
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;
Dec(m);
End;
Else 
Dec(d);
End;
WriteLn('предшествующая дата: ',D,'.',M); 
End.

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

Поделиться:

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

теги: студенты, консольное приложение, дата, case, целое число, М.Э.Абрамян