Cod sursa(job #168340)

Utilizator kolapsysPostelnicu Dan Marian kolapsys Data 31 martie 2008 00:14:55
Problema Next Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.7 kb
{ 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.