Помогите решить информатику: S=1/ (1+2)+1/ (1+2+3)+1/ (1+2+3+4)+… +1/ (1+2+… n)

Question

90

в избранное ссылка

Знаете ответ?

misckra · Accepted Answer

65

misckra

24 марта 2023

Var n,i,p: integer; s: real; begin s: =0; p: =0; readln (n); for i: =1 to n do begin p: =p+i; s: =s+1/p; end; writeln (s); end.

комментировать

в избранное ссылка отблагодарить