Cod sursa(job #1365812)

Utilizator ursu.daniel2202dUrsu Daniel ursu.daniel2202d Data 28 februarie 2015 15:48:27
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 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.