⇢ ЮК
Юлия Комогорцева
Пожалуйста, помогите написать программу в ABCPascal!!!
"Задано натуральное число n, напечатать его цифры в р-ичной системе счисления"!!!
Пожалуйста! Очень нужно!!!
СК
Сергей Киселев
За тебя никто на халяву писать не будет.
АМ
Алексей Марков
ABCPascal не существует. Но программу напишу, хотя зная версию языка, написал бы лучше 
var a:longint; b:integer; s,r:string;
begin
s:='0123456789ABCDEF'; r:='';
write('Number='); readln(a); write('Base='); readln(b);
repeat r:=s[a mod b+1]+r; a:=a div b until a=0;
writeln(r); readln
end.
Похожие вопросы