Pagini recente » Cod sursa (job #2387689) | Cod sursa (job #2958738) | Cod sursa (job #2621230) | Cod sursa (job #1011592) | Cod sursa (job #2189164)
program euclid2;
var a,b:2..2000000000;
d:array[1..100000]of 2..2000000000;
i,t:1..100000;
m,n:text;
begin
assign(n,'euclid2.in');
reset(n);
readln(t);
for i:=1 to t do readln(n,a,b);
close(n);
for i:=1 to t do begin
while a=b do
if a>b then a:=a-b
else b:=b-a;
d[i]:=a;
end;
assign(m,'euclid2.out');
rewrite(m);
for i:=1 to t do writeln(m,d[i]);
close(m);
end.