Cod sursa(job #604480)

Utilizator DarkWishMasterCebotari Vlad DarkWishMaster Data 22 iulie 2011 18:14:34
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
var a,b,r,T,i:longint;   F,G:text;
begin
  assign(F, 'euclid2.in'); reset(F);
  assign(G, 'euclid2.out'); rewrite(G);
  readln(F, T);
  for i:=1 to T do begin
   readln(F,a,b);
    while b<>0 do begin
     r:=a mod b;
     a:=b;
     b:=r;
    end;
  writeln(G, a);
 end;
close(F);
close(G);
end.