Вычислите S??? S=1/1!+1/2!+1/3!+1/n! напишите пожалуйста программу очень прошу!!!!!!?
Вычислите S???
S=1/1!+1/2!+1/3!+1/n!
напишите пожалуйста программу очень прошу!!!!!!?
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы