Submission #1073546

---

Source Code Expand

var n,i,j:longint;
    ans,now:int64;
	a,b:array[0..100007] of longint;
begin
  readln(n);
  for i:=1 to n do
	readln(a[i],b[i]);
  ans:=0;
  for i:=n downto 1 do
  begin
    now:=(b[i]-(a[i]+ans) mod b[i]) mod b[i];
    ans:=ans+now;
  end;
  writeln(ans);
end.
	

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result