Определить дату предыдущего дня и дату следующего дня - Pascal ABC

Формулировка задачи:

Условие 1: Дата некоторого дня определяется двумя натуральными числами m(порядковый номер месяца) и n(число).По заданным m и n определить: дату предыдущего дня и дату следующего дня.

Код к задаче: «Определить дату предыдущего дня и дату следующего дня - Pascal ABC»

textual
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


СОХРАНИТЬ ССЫЛКУ