Pagini recente » Cod sursa (job #2563975) | Cod sursa (job #156217) | Cod sursa (job #2351163) | Cod sursa (job #690205) | Cod sursa (job #433859)
Cod sursa(job #433859)
program Euclid2; {CMMDC}
var a,b,t,c:longint;
f,g:text;
function cmmdc(x,y:longint):longint;
begin
if y = 0 then cmmdc:=x
else cmmdc:=cmmdc(y,x mod y);
end;
Begin
assign(f,'euclid2.in'); reset(f); readln(f,t);
assign(g,'euclid2.out'); rewrite(g);
while not EOF(f) do
begin
readln(f,a,b);
c:=cmmdc(a,b);
writeln(g,c);
end;
close(f); close(g);
end.