Составить Программу в Паскале
дана дата сегоднешнего дня какая дата будет послепослезавтра

1

Ответы и объяснения

2014-01-17T13:36:56+04:00
program gt;
label 1;
var a,b,c,a2,b2,c2:integer;
begin
read(a,b,c);
a2:=a;
b2:=b;
c2:=c;
case b of
1,3,5,7,8,10:
case a of
1..29:
a2:=a+2;
30..31:
begin
a2:=(a+2)mod 31;
b2:=b+1;
end;
end;
2:
case a of
1..26:
a2:=a+2;
27..29:
begin
if((c mod 4=0)and(a mod 100<>0))or(c mod 400=0)then begin
a2:=(a+2)mod 29;
if(a2=0)then a2:=29;
b2:=b+1;
goto 1;
end;
a2:=(a+2)mod 28;
b2:=b+1;
1:
end;
end;
4,6,9,11:
case a of
1..28:
a2:=a+2;
29..30:
begin
a2:=(a+2)mod 30;
b2:=b+1;
end;
end;
12:
case a of
1..28:
a2:=a+2;
29..31:
begin
a2:=(a+2)mod 31;
b2:=b+1;
if(b2=13)then begin
b2:=1;
c2:=c+1;
end;
end;
end;
end;
writeln(a2,' ',b2,' ',c2);
end.
через case надо
обнови страницу я изменил решение