Pagini recente » Cod sursa (job #434443) | Cod sursa (job #2841645) | Monitorul de evaluare | Cod sursa (job #562214) | Cod sursa (job #168340)
Cod sursa(job #168340)
{ http://infoarena.ro/problema/next }
type vector=array[1..1000]of byte;
var f,g:text;
r,d,m,i,aux,lung,n:int64;
a:vector;
function rest(a:vector;b:int64):int64;
var n,i:int64;
begin
n:=0;
i:=lung;
while i>0 do
begin
n:=(n*10+a[i])mod b;
i:=i-1;
end;
rest:=n;
end;
BEGIN
assign(f,'next.in'); reset(f);
assign(g,'next.out'); rewrite(g);
readln(f,n);
i:=1; aux:=n;
while aux>0 do
begin
a[i]:=aux mod 10;
aux:=aux div 10;
i:=i+1;
end;
lung:=i-1;
readln(f,d);
r:=rest(a,d);
writeln(g,n+(d-r)mod d);
close(f); close(g);
END.