Question

вычислите S???
S=1/1!+1/2!+1/3!+1/n!
напишите пожалуйста программу очень прошу!!!!!!?

Answer 1

var
s:real;
i,n,f:integer;
begin
readln(n);
s:=0;
f:=1;
for i:=1 to n do
f:=f*i;
for i:=1 to f do
s:=s+(1/i);
writeln(s);end.

Answer 2

не заметил

Answer 3

сек

Answer 4

исправил

Answer 5

не то

Answer 6

она неверно работает

Answer 7

vars:double;
n,i:integer;
f:longint;
begin
f:=1;
writeln('Vvedite n');
readln(n);
for i:=1 to n do
begin
f:=f*i;
s:=s+(1/f);
end;
writeln('S = ',s);
end.

Answer 8

спасибо большое очень выручили!!!!