2. Дано натуральное n. Вычислить: 1/1^1 + 1/2^2 + ... + 1/n^n.

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

Пример:
3
s = 1.2870