Question

Для заданного натурального n и действительного x подсчитать сумму

S=1+1/2+1/3+...+1/n

(программа в паскале)

Answer 1

Ответ:

var n,i:integer;

s:real;

begin

write('Введите число N - '); readln(n);

for i:=1 to n do  

s:=s+(1/i);

write(s:0:4);

end.