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

UptoLike

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

Рубрика:

Str(x,r);

IntToStr:=r;

end;

Function IntToStr2(x:integer):string;

{перевод из числа в строку длиной 2}

var r:string;

begin

Str(x,r);

if length(r)=1 then r:='0'+r;

IntToStr2:=r;

end;

Procedure WriteF;

{запись файла}

var s,r:string; {временные переменные для

хранения строки и 1 слова}

begin

Assign(f,'output.txt');

ReWrite(f);

s:='';

if DAY=1 THEN r:='MON';

if DAY=2 THEN r:='TUE';

if DAY=3 THEN r:='WEN';

if DAY=4 THEN r:='THU';

if DAY=5 THEN r:='FRI';

if DAY=6 THEN r:='SAT';

if DAY=7 THEN r:='SUN';

s:=s+r+', '+IntToStr2(date);

Case month of

1:r:='JAN';