Cod sursa(job #557493)
| Utilizator |  Ovidiu Rosca junior |
Data | 16 martie 2011 18:04:13 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.35 kb |
var
fi, fo : text;
d, r, i, t : longint;
begin
assign (fi, 'euclid2.in'); reset (fi);
assign (fo, 'euclid2.out'); rewrite (fo);
readln (fi, t);
for j := 1 to t do
begin
readln (fi, d, i);
repeat
r := d mod i;
d := i; i := r;
until r = 0;
writeln (fo, d);
end;
close (fi); close (fo);
end.