Cod sursa(job #210737)

Utilizator florin_marius90Florin Marius Popescu florin_marius90 Data 28 septembrie 2008 20:36:27
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
var a,b,t: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);
 if a<b then begin a:=a+b; b:=a-b; a:=a-b; end;
  r:=1;
 while r<> 0 do
   begin
   r:=a mod b;
   a:=b;
   b:=r;


end;
  writeln(g,a);

 end;  
close(f); close(g);
end.