41

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

cucumbers 18 февраля 2023

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

категория: информатика

83

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

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...