a49.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 16 行

var b,i,n,a:integer;
    v:array[1..20] of integer;
begin
write('a=');readln(a);
write('b=');readln(b);
n:=0;
while a>0 do begin
             n:=n+1;
             v[n]:=a mod b;
             a:=a div b;
             end;
for i:=n downto 1 do
  write(v[i]);
  readln;
  end.