Pagini recente » Cod sursa (job #1187869) | Rating Marian Bodaci (phyro000) | Cod sursa (job #2634474) | Cod sursa (job #2740764) | Cod sursa (job #777592)
Cod sursa(job #777592)
Program algoreuclid;
VAR
a,b,c,t,i:longint;
cin,cout:text;
begin
assign(cin,'euclid2.in');
reset(cin);
assign(cout,'euclid2.out');
rewrite(cout);
read(t);
for i:=1 to t do
begin
read(cin,a,b);
while (a>0) and (b>0) do
begin
if (a>b)
then
a:=a-b
else
b:=b-a;
end;
if (a>b)
then
c:=a
else
c:=b;
writeln(cout,c);
end;
close(cin);
close(cout);
end.