Cod sursa(job #886240)
| Utilizator |  Fusy Wool wolly |
Data | 22 februarie 2013 18:47:54 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.28 kb |
var a,b:text;
c,d:longint;
m,n,r:longint;
begin
assign(a,'euclid2.in');
assign(b,'euclid2.out');
reset(a);
rewrite(b);
read(a,c);
for d:=1 to c do
begin
read(a,m);
read(a,n);
while n>0 do
begin
r:=m mod n;
m:=n;
n:=r;
end;
writeln(b,m);
end;
end.
