Написать программу суммы разряда S=1:1+1:3+1:10+… +1: n где n определяетсяпользователем

Question

52

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

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

megget · Accepted Answer

68

megget

17 апреля 2023

Var n,i,k: integer; s: real; beginreadln (n); k: =1; for i: =1 to n do begins: =s+(1/k); inc (k,1); end; writeln (s); end.

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

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