Для заданного натурального n и действительного x подсчитать сумму S=1+1/2+1/3+...+1/n

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

Question

Информатика: Для заданного натурального n и действительного x подсчитать сумму S=1+1/2+1/3+...+1/n(программа в паскале)

Rororor11111 · Answer

var n,i:integer;s:real;beginwrite( Введите число N - ); readln(n);for i:=1 to n do  s:=s+(1/i);write(s:0:4);end....