Cod sursa(job #1010179)

Utilizator WictorTTimoftii Victor WictorT Data 14 octombrie 2013 14:37:17
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
 Program Euclid01 ;
  var a,b,n,i:longword  ; f,t:text ;
 BEGIN
  assign(f,'euclid2.in') ; reset(f) ; readln(f,n) ;
  assign(t,'euclid2.out') ; rewrite(t) ;
   for i:=1 to n do begin readln(f,a,b) ;
    while a<>b do if b>a then b:=b-a else a:=a-b ; writeln(t,a) ; end ;
   close(f) ; close(t) ;
      end .