Cod sursa(job #146784)

Utilizator tiger_10Dutescu Radu Alin tiger_10 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.