Помогите решить задачку ** языке паскаль. Срочно. Дано целое число N(>0) Найти сумму...

Question

Помогите решить задачку на языке паскаль. Срочно.
Дано целое число N(>0) Найти сумму 1-1/2-1/3.....-1/N(Вещественное число)

Comments

что на месте ..... ?

---

на месте многоточия числа. типа 1/6 1/7 1/9 и т.д. до N

---

сумма только с минусом, минус можно вынести

Answer 1

Var N,i:integer; s:real;beginwriteln('vvedite N');readln(N);s:=1;for i:=2 to N dos:=s-1/i;writeln('Summa = ',s);end.