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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.