peter2008 |
2008-02-18 21:12 |
program f; type arraytype=array[1..10000] of integer; var k,b,i:integer; ch:char; a:arraytype; procedure time(var x:arraytype;y:integer); var g,i:integer; begin for i:=1 to k+1 do begin a[k]:=a[k]*b+g; a[k]:=a[k] mod 10; g:=a[k] div 10; end; end; begin {assign(input,'f.in'); assign(output,'f.out'); reset(input); rewrite(output); } {while not eoln do begin } read(ch); k:=0; while (ch<>'d') do; begin k:=k+1; a[k]:=ord(ch)-48; read(ch); end; //end; read(b); time(a,b); for i:=k+1 downto 1 do if a<>0 then write(a); close(input); close(output); end. |
|