Переменная i присваивает значения от 13 до 5,то есть
13,12,11,10,9,8,7,6,5.
110100111 в двоичной СС = 423 в десятичной СС
Var a:integer;
begin
read(a);
write((a mod 10)*100+(a div 10 mod 10)*10+a div 100)
<span>end.</span>
Предложение в исходном виде было таким:
"Любая инфор может быть представлена с помощью чисел"