Cod sursa(job #543884)
Utilizator | Marginean Bogdan Alexandru Patrunjelu | Data | 28 februarie 2011 18:18:09 |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.35 kb |
program pascal;
var a,b:integer;
fin,fout:text;
function cmmdc(aa:integer; bb:integer):integer;
begin
if (bb = 0) then cmmdc:= aa else cmmdc:= cmmdc(bb, aa % 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.