Напишите процедуру, которая выводит на экран переданное ей число в системе счисления, которая задается вторым параметром (от 2 до 20). ПАСКАЛЬ СРОЧНО
Напишите процедуру, которая выводит на экран переданное ей число в системе
счисления, которая задается вторым параметром (от 2 до 20). ПАСКАЛЬ СРОЧНО
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы