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

UptoLike

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

Рубрика:

k:=x mod 5;

x:=x div 5;

case k of

0:r:='#';

1:r:='$';

2:r:='&';

3:r:='*';

4:r:='@';

else Writeln('Error!!!!!')

end;

s:=r+s;

end;

To5:=s;

end;

Procedure ReadFile;

{чтение исходных данных из файла Input.txt:

N - число слов на странице

a - первое слово

b - второе слово }

var s:string;

f:text;

begin

Assign(f,'input.txt');

Reset(f);

Readln(f,n);

Readln(f,a);

Readln(f,b);

Close(f);

end;

Function To10(x:string):integer;