Олимпиадные задачи по программированию. Ч. 3. Лучшие решения. Ускова О.Ф - 57 стр.

UptoLike

Составители:

Рубрика:

if min>=60 then begin inc(hour); min:=min-60

end;

if min<0 then begin dec(hour); min:=min+60

end;

inc(hour,inch);

if hour>=24 then begin inc(day); inc(date);

hour:=hour-24 end;

if hour<0 then begin hour:=hour+24;

dec(day); dec(date) end;

{день недели}

if day<=0 then day:=day+7;

if day>7 then day:=day-7;

{день месяца}

if (month<>2) or not LeapYear(year) then

begin

if date>daymonth[month] then begin

date:=1; Inc(month) end;

if date<=0 then

begin

{сдвинуть месяц на 1 назад}

dec(month);

if leapyear(year) and (month=2)

then day:=29

else begin

month1:=month;

if month1<=0 then

inc(month1,12);

if month1>12 then

dec(month1,12);