Accepted
/usr/bin/ld.bfd: warning: /out/link.res contains output sections; did you forget -T?
代码
var n,q,i:longint;
a:array[0..100000]of int64;
d,t:int64;
function gcd(a,b:int64):int64;
begin
if a<0 then a:=-a;
if b<0 then b:=-b;
if b=0 then exit(a)
else exit(gcd(b,a mod b));
end;
begin
readln(n,q);
d:=0;
for i:=1 to n do begin
read(a[i]);
if i<>1 then d:=gcd(a[i]-a[i-1],d);
end;
for i:=1 to q do begin
read(t);
a[1]:=a[1]+t;
writeln(gcd(a[1],d));
end;
close(input);
close(output);
end.
信息
- 递交者
- 类型
- 递交
- 题目
- 最大公约数 NOI2012
- 题目数据
- 下载
- 语言
- Pascal
- 递交时间
- 2017-08-22 16:39:08
- 评测时间
- 2017-08-22 16:39:08
- 评测机
- 分数
- 100
- 总耗时
- 438ms
- 峰值内存
- 1.258 MiB