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

[fanatloko]

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

[Stilet]

С потолка:

const mm:array[1..12] of integer=(31,28,31,30,31,30,31,30,31,30,31,31);
var m,n:integer;
begin
 m:=1;n:=1;
 if n=1 then begin
  if ((m in [1,5,7,9,11,12])  then write('pred=',30) else
  if ((m in [2,4,5,7,8])  then write('pred=',31) else
  if ((m in [3])  then write('pred=',28) else
  write('next=',n-1);
 end else begin
  if (n=31) and (m in [1,3,5,7,9,11,12]) then write('next=',1) else
  if (n=30) and (m in [4,6,8,10]) then write('next=',1) else
  if (n=28)and(m=2) then  write('next=',1) else
  write('next=',n+1);
 end;
end;

Не проверял, методика может быть не совсем верной.

[Maxloki]

Program data;
Uses crt;
Var m,n,k,s,p,f:byte;
Begin clrscr;
Write ('Введите порядковый номер месяца m:=');
Readln (m);
writeln;
Write ('Введите число n:=');
Readln (n);
If ((m=12) and (n=31)) then begin k:=1;
s:=1;
end else

If ((n=31) or (n=30) or (n=28) or (n=29)) then begin k:=m+1;
s:=1;
end;
If ((m=1) and (n=1)) then begin p:=12;
f:=31;
end;
If ((k=0) and (s=0)) then begin k:=m;
s:=n+1;
end;
If ((p=0) and (f=0) and (n=1)) then If ((m=1) or (m=5) or (m=7) or (m=10) or (m=12)) then begin p:=m-1; f:=30; end else
If m=3 then begin p:=m-1; f:=29; end else
If ((m=2) or (m=4) or (m=6) or (m=8) or (m=9) or (m=11)) then begin p:=m-1; f:=31 end;
If ((p=0) and (f=0)) then begin p:=m; f:=n-1; end;
Writeln ('Следующий день ',s,'.',k);
Writeln ('Предыдущий день ',f,'.',p);
End.

Вот программа!