Составить программу перевода данного натурального числа в восьмеричную систему счисления (Pascal)

[Nik_832]

Срочно, срочно, срочно! Help!
Желательно без наворотов.

[Вадим Мошев]

Вот почитайте: http://www.programmersforum.ru/showp...4&postcount=36

[newerow1989]

function Perewod_iz_10_w_8(chislo_10:integer):string;
var i:integer;
begin
   Result:='';
   Repeat
      i:=chislo_10 mod 8;
      Result:=IntToStr(i)+Result;
      chislo_10:=chislo_10 div 8;
   Until chislo_10=0;
end;

begin
   Writeln(Perewod_iz_10_w_8(15));
   Readln;
end.

[min@y™]

перевод целого в восьмеричное представление и дополнение слева нулями до длины AMinLen:

function IntToOctal(X: Integer; const AMinLen: Byte = 0): string; inline;
begin
  Result:= '';
  repeat
    Result:= Char($30 + (X and $07)) + Result;
    X:= X shr 3;
  until X = 0;

  while Result.Length < AMinLen do
    Result:= '0' + Result;
end;