Cod sursa(job #1044484)
Utilizator | Data | 29 noiembrie 2013 22:11:57 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 60 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.49 kb |
program divizori; uses crt;
var f, g : text;
a, c : int64;
i, t : longint;
Begin
Assign(g,'euclid2.in');
reset(G);
Assign(f,'euclid2.out');
rewrite(F);
readln(g,t);
For i:=1 to t do
Begin
Readln(g,a,c);
While a<>c do
if a>c then
a:=a-c
else
c:=c-a;
Writeln(f,A);
End;
Close(G);
Close(F);
Readln;
End.