Cod sursa(job #559481)

Utilizator mazilugeorgemazilu george mazilugeorge Data 17 martie 2011 20:57:50
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.44 kb
program cmmdc; 
var a,b,d,i,n:longint;    
f,g:text; 
function cmmdc(a,b:longint):longint;    
begin      
if b=0 then cmmdc:=a          
else cmmdc:=cmmdc(b,a mod b);    
end; 
begin    
assign(f,'euclid2.in');     
reset(f); 
assign(g,'euclid2.out'); 
rewrite(g);     
read(f,n); 
for i:=1 to n do        
begin           
read(f,a,b);           
d:=cmmdc(a,b);            
writeln(g,d);        
end;    
close(f);close(g); 
end.