Pagini recente » Cod sursa (job #1018981) | Cod sursa (job #1128366) | Cod sursa (job #2072744) | Cod sursa (job #2531917) | Cod sursa (job #408509)
Cod sursa(job #408509)
{$M 64000000,0}
{$H-,I-,Q-,R-,S-}
{La Hoang
Ngay 3-3-2010}
const
TFI = 'euclid2.in';
TFO = 'euclid2.out';
var
fi, fo: text;
T, a, b: longint;
(*-----------------------------------*)
function Ucln(a, b: longint): longint;
var
i: longint;
begin
if b = 0 then exit(a);
if a > b then exit(Ucln(b, a mod b)) else exit(Ucln(a, b mod a));
end;
(*-----------------------------------*)
begin
Assign(fi, TFI); Reset(fi);
Assign(Fo, TFO); Rewrite(fo);
Readln(fi, T);
While t > 0 do
begin
dec(t);
Readln(fi, a, b);
Writeln(fo, Ucln(a, b));
end;
Close(fo);
Close(fi);
end.