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

UptoLike

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

46
# за 0
$ за 1
& за 2
* за 3
@ за 4
Полученое число в пятеричной системе
счисления переводится в соответствующее число
в десятичной системе счисления и уже с ним
производятся необходимые действия для
получения требуемых результатов. При
вычислниях в десятичной системе получается
число, соответствующее слову в языке TURBU.
Это число переводится в соответствующее число
в пятеричной системе и, следовательно ,
известно написание искомого слова. В
языкеTURBU всего 3125 слов.
Program TURBU;{автор Ромащенко А.Г.}
Type num5=string;
var a,b:num5;
n:integer;
p:integer;
Function To5(x:integer):num5;
{перевод числа в слово из языка TURBU}
var s:num5;
r:string;
k:integer;
begin
s:='';
While x>0 do
begin