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

Question

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

Answer 1

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

Comments

c++ можно?

---

Язык программирования нужно указывать в задании.

---

https://znanija.com/task/25543686

---

сюда зайди я там пересоздал