Pagini recente » Cod sursa (job #3239339) | Cod sursa (job #2888933) | Cod sursa (job #231553) | Cod sursa (job #1167981) | Cod sursa (job #252641)
Cod sursa(job #252641)
program euclid2;
var n,a,b,i:longint;
f1,f2:text;
function cmmdc(a,b:longint):longint;
begin
if a=0 then cmmdc:=b;
if b=0 then cmmdc:=a;
if (a<>0)and(b<>0) then
if a=b then cmmdc:=a
else
cmmdc:=cmmdc(a mod b,b mod a);
end;
begin
assign(f1,'euclid2.in'); reset(f1);
assign(f2,'euclid2.out'); rewrite(f2);
readln(f1,n);
for i:=1 to n do
begin
readln(f1,a,b);
writeln(f2,cmmdc(a,b));
end;
close(f2);
end.