перевод из 10-ичной с/с в восмеричную, перевод из 10-ичной с/с в восмеричную с помощью рекурсивной процедуры Опции

[StingeR]

перевод из 10-ичной с/с в восмеричную с помощью рекурсивной процедуры

[volvo]

Пользуйся поиском, я выкладывал уже эту процедуру.

[Гость]

Напиши плз ссылку!!!!

[Гость]

function FromDec(n, radix:longint):string;
var
s: String;
const
digit: string[16]='0123456789ABCDEF';
begin
s:='';
repeat
s:=digit[(n mod radix)+1]+s;
n:=n div radix;
until n=0;
FromDec:=s;
end;


помогите пожалуйста оформить с помощью рекурсивной процедуры

[volvo]

Напиши плз ссылку!!!!

Вот ссылка:
Рекурсия

[StingeR]

Вот ссылка:
Рекурсия

СПАСИБО БолЬшоЕ