var pascal

Ответ от Dimen[гуру]
Хм, эта последовательность очень похожа на двоичный код, только вместо единиц - пятерки. Номер по порядку 12 = 1100 в двоичной системе или 5500 в нашем случае.
Dimen
(2816)
Вот программа перевода из десятичного в двоичный код:
program str1;
uses crt;
function dec2bin(x:integer):string;
var s:string;
begin
s:='';
while x>0 do
begin
s:=chr(ord('0')+x mod 2)+s;
x:=x div 2;
end;
dec2bin:=s;
end;
var a: integer;
begin
clrscr;
writeln('Vvedite chislo:');
readln(a);
writeln('poluchenoe chislo:',dec2bin(a));
readln;
end.
Нужно только внести изменения. Если введенный номер по порядку =1, то ответ должен быть 0? Тогда нужно уменьшить этот номер на 1. Далее в полученном s нужно заменить все 1 на 5. Сорри, я в Паскале не шарю, может и не прав.