Cod sursa(job #1103777)
| Utilizator |  Fusy Wool wolly |
Data | 9 februarie 2014 22:23:05 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.31 kb |
var c,d:longint;
m,n,r:longint;
begin
assign(input,'euclid2.in');
assign(output,'euclid2.out');
reset(input);
rewrite(output);
read(c);
for d:=1 to c do
begin
read(m);
read(n);
while n>0 do
begin
r:=m mod n;
m:=n;
n:=r;
end;
writeln(m);
end;
end.
