Cod sursa(job #543888)

Utilizator PatrunjeluMarginean Bogdan Alexandru Patrunjelu Data 28 februarie 2011 18:21:51
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
Raporteaza aceasta sursa 
program pascal;
var a,b:integer;
    fin,fout:text;

function cmmdc(aa:integer; bb:integer):integer;
begin
  if not(bb) then cmmdc:=aa else cmmdc:=cmmdc(bb, aa mod bb);
end;

begin
assign(fin, 'euclid2.in'); reset(fin);
readln(fin, a, b);
close(fin);
assign(fout, 'euclid2.out'); rewrite(fout);
write(fout, cmmdc(a,b));
close(fout);
end.