Cod sursa(job #146785)
| Utilizator |  Dutescu Radu Alin tiger_10 |
Data | 2 martie 2008 09:11:24 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.3 kb |
var a,b:word;
f,g:text;
function cmmdc(a,b:word):word;
begin
if a mod b=0 then cmmdc:=b
else cmmdc:=cmmdc(b,a mod b);
end;
begin
assign(f,'cmmdc.in');
reset(f);
readln(f,a);
readln(f,b);
assign(g,'cmmdc.out');
rewrite(g);
writeln(g,cmmdc(a,b));
close(f);
close(g);
end.
