Cod sursa(job #156735)

Utilizator dragos15Mateescu Dumitru Dragos dragos15 Data 12 martie 2008 18:39:30
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
var  n,a,b,r:longint;  
f,g:text;  
begin  
assign(f,'euclid2.in'); reset(f);  
assign(g,'euclid2.out'); rewrite(g);  
   
readln(f,n);  
for i := 1 to n do begin
	readln(f,a,b);
	r:=0;
	while a<>b do begin
		r:=a mod b;
		b:=a;
		a:=r;
	end;
	writeln(g,a);
end;
close(f);  
close(g);  
   
end.