Pagini recente » Cod sursa (job #277401) | Cod sursa (job #2877093) | Cod sursa (job #915288) | Cod sursa (job #1653593) | Cod sursa (job #600506)
Cod sursa(job #600506)
Program CMMDC_Tudor;
var fi,fo : text;
a,b,nr,i,n : integer;
Function CMMDC(a,b : integer) : integer;
begin
if b=0 then CMMDC:=a
else if a mod b = 0 then CMMDC:=b
else CMMDC:=CMMDC(b,a mod b);
end;
begin
assign(fi,'euclid2.in');
reset(fi);
readln(fi,n);
assign(fo,'euclid2.out');
rewrite(fo);
for i:=1 to n do begin
read(fi,a,b);
if a>b then nr:=CMMDC(a,b)
else nr:=CMMDC(b,a);
writeln(fo,nr);
end;
close(fi);
close(fo);
end.