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

не заметил

сек

исправил

не то

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

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

vars:real;i,n,f:integer;beginreadln(n);s:=0;f:=1;for i:=1 to n dof:=f*i;for i:=1 to f dos:=s+(1/i);writeln(s);end.

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