Cod sursa(job #559478)

Utilizator mazilugeorgemazilu george mazilugeorge Data 17 martie 2011 20:54:35
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.37 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.