Pagini recente » Cod sursa (job #1858316) | Cod sursa (job #2858428) | Cod sursa (job #1475193) | Cod sursa (job #844638) | Cod sursa (job #408505)
Cod sursa(job #408505)
{$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, R: longint;
(*-----------------------------------*)
procedure Input;
begin
Readln(fi, a, b);
end;
(*-----------------------------------*)
procedure process;
var
i: longint;
begin
while b <> 0 do
begin
i := a mod b;
a := b;
b := i;
end;
R := a;
end;
(*-----------------------------------*)
procedure Output;
begin
Writeln(fo, R);
end;
(*-----------------------------------*)
begin
Assign(fi, TFI); Reset(fi);
Assign(Fo, TFO); Rewrite(fo);
Readln(fi, T);
While t > 0 do
begin
dec(t);
Input;
Process;
Output;
end;
Close(fo);
Close(fi);
// writeln(5 mod 7);
end.