krymer220

Ответ:

Объяснение:

Чет знакомое задание, вы случаем не студент?

program Summa;

var

i,t,n:integer;

S,P:real;

BEGIN

writeln('Введите последнее число последовательности n.');

readln(n);

S:=0;

t:=1;

for i:=1 to n do

begin

t := t*i;

writeln('!',i,'=',t);

S:=S+(1/t);

end;

writeln('Сумма=',S,'.');

end.