Cod sursa(job #283622)
| Utilizator | Data | 19 martie 2009 14:18:05 | |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.4 kb |
var x,a,b:longint;
f,g:text;
function cmmdc (a,b:longint):longint;
begin
repeat
if a>b then a:=a-b
else if b>a then b:=b-a;
until a=b;
cmmdc:=a;
end;
begin
assign(f,'cmmdc.in');reset(f);
assign(g,'cmmdc.out');rewrite(g);
read(f,a,b);
x:=cmmdc(a,b);
write(g,a);
close(f); close(g);
end.