1+3+5+...+n / n! işlemini yapan program

1+3+5+...+n
             n!
uses crt;
var
toplam,i,fak,n:integer;
sonuc:real;
begin
clrscr;
fak:=1;
writeln('n sayısını giriniz');readln(n);
for i:=1 to n  do begin
if odd(i)then
toplam:=toplam+i;
fak:=fak*i;
end;

sonuc:=toplam/fak;
writeln('sonuc:',sonuc:6:2);
readln;
end.



Linkback: https://www.buyuknet.com/135n-n-islemini-yapan-program-t8605.0.html