program exp3; var I, j, p, n, q, s : integer; a : array[1..20]of integer; begin readln(p, n, q); j := 21; while (n > 0)do begin j := j - 1; a[j] := n mod 10; n := n div 10; end; s := 0; for i:=j t0 20 do s := s * p + a[i]; writeln(s); j := 21; while (s > O)do begin j := j - 1; a[j] := s mod q; s := s div q; end; for i:=j to 20 do write(a[i]); readln; end.
输入:7 3051 8
输出:1