Вводим число, в какой системе счисления и в какую перевести.

var n,p,k,i,c,d,j:longint;
a,b:array[1..1000] of longint;
begin
readln(n,c,p);

while n>0 do
begin
k:=k+1;
b[k]:=n mod 10;
n:=n div 10;
end;

n:=0;

for i:=k downto 1 do
BEGin
j:=j+1;
a[j]:=b[i];
end;

j:=0;
for i:=1 to k do
begin

d:=1;
for j:=0 to k-i-1 do 
d:=d*c;

n:=n+(a[i]*d);

end;

k:=0;
while n>0 do begin
             k:=k+1;
             a[k]:=n mod p;
             n:=n div p;
             end;

for i:=k downto 1 do write(a[i]);
end.

Отредактировано Санчоус (2011-10-06 15:40:32)