var f1,f2:text;
a,c:array [0..100] of integer;
b:integer;
i,os:integer;
s:char;
begin
assign(f1,'long.dat');
reset(f1);
while not(eoln(f1)) do begin
read(f1,s);
if s in ['0'..'9'] then begin
for i:=a[0] downto 1 do
a[i+1]:=a[i];

a[1]:=ord(s)-ord('0');
a[0]:=a[0]+1;
end;
end;
readln(f1,s);
readln(f1,b);
close(f1);

os:=0;
for i:=a[0] downto 1 do begin
c[i]:=(a[i]+os*10) div b;
os:=(a[i]+os*10) mod b;
end;
c[0]:=a[0];

while c[c[0]]=0 do c[0]:=c[0]-1;   {00000}

assign(f2,'long.sol');
rewrite(f2);
for i:=c[0] downto 1 do write(f2,c[i]);
writeln(f2);
writeln(f2,os);
close(f2);
end.