Cod sursa(job #159327)

Utilizator loriKis Levente Lorand lori Data 14 martie 2008 07:45:55
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
var n,i,a,b,r:longint;
begin
 assign(input,'euclid2.in'); reset(input);
 assign(output,'euclid2.out'); rewrite(output);
  readln(n);
  for i:=1 to n do begin
   readln(a,b); r:=a mod b;
   while r<>0 do begin
    a:=b; b:=r; r:=a mod b;
   end;
   writeln(b);
  end;
 close(input); close(output);
end.