Pagini recente » Cod sursa (job #1806119) | Cod sursa (job #2134759) | Cod sursa (job #2469855) | Cod sursa (job #876259) | Cod sursa (job #408508)
Cod sursa(job #408508)
{$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
while b > 0 do
begin
i := a mod b;
a := b;
b := i;
end;
exit(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);
// writeln(5 mod 7);
end.