Число N> 0 Найти сумму 1+1/2+1/3+1/4+… +1/n

Задание:

Число N> 0 Найти сумму 1+1/2+1/3+1/4+… +1/n

Решение:

var i,n: integer; sum: real; beginreadln (n); for i: =1 to n do begin sum: =sum+1/i; writeln (sum); end.

Знаете другой ответ?

Отправить свой ответ