Pagini recente » Cod sursa (job #3166783) | Cod sursa (job #1057474) | Cod sursa (job #1287699) | Cod sursa (job #2079496) | Cod sursa (job #411302)
Cod sursa(job #411302)
var
t,a,b,i:longint;
function divizor(a,b:longint):longint;
var
aux:longint;
rest:longint;
begin
if a<b
then
begin
aux:=a;
a:=b;
b:=aux;
end;
rest:=a mod b;
while rest<>0 do
begin
a:=b;
b:=rest;
rest:=a mod b;
end;
divizor:=b;
end;
procedure facem;
var
f,g:text;
begin
assign(f,'euclid2.in'); assign(g,'euclid2.out');
reset(f); rewrite(g);
readln(f,t);
for I:=1 to t do
begin
readln(f,a,b);
writeln(g,divizor(a,b));
end;
close(f);
close(g);
end;
begin
facem;
end.