Question

pascal编程

题目描述
输入一个十进制整数A，将其转换成指定的n进制数（1<n<10）。
将十进制数转换成其它进制数的方法是：不断整除这个进制n，取余，直到整除结果为0时，将所有的余数按先后顺序倒的输出。
如将十进制数25转换成指定的3进制，方法是：
25 / 3 = 8 …… 1
8 / 3 = 2 …… 2
2 / 3 = 0 …… 2
则最后转换后的八进制数为221

输入格式
一行，两个整数，前一个为待转换的十进制数A(0<=A<=10000)，后一个为n进制（1<n<10）。
输出格式
一行，一个被转换成n进制的整数。
样例输入
100 7
样例输出
202

Answer 1

var i,j,r,n:longint;
s:array[1..32]of byte;
begin
readln(n,r);
i:=0;
while n<>0 do
begin
inc(i);
s[i]:=n mod r;
n:=n div r;
end;
for j:=i downto 1 do write(s[j]);
writeln;
end.