Cod sursa(job #146784)
Utilizator | Data | 2 martie 2008 09:11:01 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.37 kb |
var a , b : longint ;
f , g : text ;
function cmmdc(a , b : longint) : longint ;
begin
if a=b then cmmdc:=a
else if a>b then cmmdc:=cmmdc(a-b,b)
else cmmdc:=cmmdc(a,b-a) ;
end ;
begin
assign(f,'cmmdc.in') ;
reset(f) ;
read(f,a) ;
readln(f,b) ;
close(f);
assign(g,'cmmdc.out') ;
rewrite(g) ;
writeln(g,cmmdc(a,b)) ;
close(g) ;
end.