Как сгенерить числа

[Ghost of Night]

Плизз! Хелп!
Как можно сгенерить 500 чисел, состоящих из 0 и 5
В такой последовательности:
0,5,50,55,500,505, и т.д.

[vr83]

Вар
и: интеджер;
Число: стринг;
Массив: Аррей [0..499] оф интеджер;
Бегин
фор и := 0 ту 499 ду
бегин
Число := Функция_переводящая_десятичное_числ о_в_двоичное_строку(и)
Массив[и] := СтрТуИнт(Число)*5
энд;
Энд.

[Serge_Bliznykov]

vr83, идея решения отличная!
Действительно, чётко прослеживается двоичная арифметика, только вместо единицы в данном алфавите используется цифра 5.

[Ghost of Night]

Сообщение от vr83

Функция_переводящая_десятичное_числ о_в_двоичное_строку(и)

Это IntToHex(i)???????????, только у неё 2 параметра

[Ghost of Night]

Написал функцию, переводит числа десятичные в двоичные функция работает,

function dec_bin(ch:Int64):String;
label m1;
var
 otv2,q:Int64;
 otv:real;
 sq:array[1..1000] of String;
 w:string;
 i:integer;
begin
 q:=0;
 m1:
 otv:=Trunc(ch / 2);
 otv2:=ch mod 2;
 sq[q+1]:=intToStr(otv2);
 if otv<2 then sq[q+1]:=FloatToStr(otv)
 else
  begin
   ch:=Round(otv);
   goto m1;
  end;
 for i:=1 to q do
  begin
   w:=sq[q]+sq[q-1];
  end;
 Result:=w;
end;

вставил в

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
 chs:String;
 a:array[0..499] of Integer;
begin
 Memo1.Clear;
 for i:=0 to 499 do
  begin
   chs:=dec_bin(i);
   a[i]:=StrToInt(chs)*5;
  end;
end;

пишет ошибка.

[Ghost of Night]

Блин, я ступил немного. Щас доделал функцию и все заработало!!!!!!
Спасибо за совет!!!!!!!