Записать программу которая находит сумму ряда 1 + 1/2 + 1/3 + … + 1/n
64
ОТВЕТЫ
// PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
// Внимание! Если программа не работает, обновите версию!
begin
Range(ReadInteger,1,-1).Select(t-gt;1/t).Sum.Println;
end.
Пример
50
4.49920533832942
// Внимание! Если программа не работает, обновите версию!
begin
Range(ReadInteger,1,-1).Select(t-gt;1/t).Sum.Println;
end.
Пример
50
4.49920533832942
35
Отв. дан
Григорий
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Centritus
Какую разновидность информационно-поисковых систем представляют поисковые системы в Интернете
...
2018-10-04 00:00:00
Константин
Вычислить сумму ряда чисел 1 + 1/2 + 1/3 ...
2018-10-04 00:00:00
Gasius
Можно ли считать хорошо поставленной задачу в одной из ...
2018-10-04 00:00:00
Drelathris
Какие устройства входят в состав видеоадаптера ...
2018-10-04 00:00:00