Cod sursa(job #1856399)
| Utilizator |  Runcan Alexandru Alex03 |
Data | 24 ianuarie 2017 20:11:34 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.31 kb |
Program vv;
var f,g:Text;
t,i:Byte;
a,b: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.
