Напишите процедуру, которая выводит ** экран переданное ей число в системе счисления,...

Question

Напишите процедуру, которая выводит на экран переданное ей число в системе
счисления, которая задается вторым параметром (от 2 до 20). ПАСКАЛЬ СРОЧНО

Answer 1

1 const
2. digit: string(20)=`0123456789ABCDEFGHIJ`;
var
i:longint
n,r;integer;
function FromDec(n,r:longint):string;
var
s:String;
begin
s:=`  `;
repeat
s:=digit(n mod r)+1)+S
n:=n div r ;
until n=0;
FromDec:=S;
end;

begin
write(`N=`); readin(n);
write(`osn=`); readin(r);
writeln(`Res=`,FromDec(n,r));
end