Cod sursa(job #150567)

Utilizator KingNoname on streets King Data 7 martie 2008 07:02:26
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.38 kb
Raporteaza aceasta sursa 
    var fi,fo:text;  
    function cmmdc(a,b:longint):longint;  
    begin  
      if b=0 then cmmdc:=a  
       else cmmdc:=cmmdc(b,a mod b);  
     end;  
     var a,b:longint;  
     begin  
     assign(fi,'euclid2.in'); reset(fi);  
     assign(fo,'euclid2.out'); rewrite(fo);  
     read(fi,a,b);  
     writeln(fo,cmmdc(a,b));  
     close(fi);  
     close(fo);  
   end.