Cod sursa(job #1856403)
| Utilizator |  Runcan Alexandru Alex03 |
Data | 24 ianuarie 2017 20:14:04 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 60 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.3 kb |
Program vv;
var f,g:Text;
a,b,t,i:Longword;
Begin
Assign (f,'euclid2.in');reset (f);
Assign (g,'euclid2.out');Rewrite (g);
Readln (f,t);
for i:=1 to t do
Begin
Read (f,a,b);
While a<>b do
If a>b then a:=a-b
Else b:=b-a;
Writeln (g,a);
End;
Close (f);Close (g);
End.
