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

UptoLike

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

Рубрика:

2:r:='FEB';

3:r:='MAR';

4:r:='APR';

5:r:='MAY';

6:r:='JUN';

7:r:='JUL';

8:r:='AUG';

9:r:='SEP';

10:r:='OCT';

11:r:='NOV';

12:r:='DEC';

end;

s:=s+' '+r+' '+INtToStr(year)+'

'+IntToStr2(hour)+':'+INtToStr2(min)+':'+INtTo

Str2(sec)+' +0300';

Writeln(f,s);

Close(f);

end;

Function LeapYear(x:integer):boolean;

{проверка на високосный год}

begin

LeapYear:=((x mod 4 =0) and (x mod 100<>0)) or

(x mod 400=0)

end;

Procedure Incr;

{изменение даты}

var month1:integer; { используется для

вычилсения даты}

begin

inc(min,incmin);