Cod sursa(job #794430)

Utilizator guntyGotha Guntter gunty Data 6 octombrie 2012 12:21:55
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
Raporteaza aceasta sursa 
program euclid_algoritmus;
var
n,a,b,i,c:longword;
f,g:text;

begin
Assign(f,'euclid2.in'); reset(f);
Assign(g,'euclid2.out'); rewrite(g);
readln(f,n);

For i:=1 to n do begin
 readln(f,a,b);
 if b>a then begin c:=a; a:=b; b:=c; end;
 repeat
  c:=a mod b;
  a:=b; b:=c;
 until b=0;
 Writeln(g,a);
end;
close(f);close(g);
end.