Определить дату предыдущего дня и дату следующего дня - Pascal ABC
Формулировка задачи:
Условие 1:
Дата некоторого дня определяется двумя натуральными числами m(порядковый номер месяца) и n(число).По заданным m и n определить:
дату предыдущего дня и дату следующего дня.
Код к задаче: «Определить дату предыдущего дня и дату следующего дня - Pascal ABC»
var n,m: integer; //n - день; m - месяц; begin readln(n); readln(m); case n of 28: case m of 2: begin n:=1; m:=3; end; else n:=29; end; 30: case m of 4,6,9,11: begin n:=1; m:=m+1; end; else n:=31; end; 31: begin n:=1; case m of 12: m:=1; else m:=m+1; end; end; else n:=n+1; end; writeln(n,' ',m); readln; end.
8 голосов, оценка 3.500 из 5
СОХРАНИТЬ ССЫЛКУ