Записать программу которая находит сумму ряда 1 + 1/2 + 1/3 + … + 1/n

orynbasar2001 orynbasar2001    3   23.09.2019 14:10    0

Ответы
Rashid200413 Rashid200413  08.10.2020 12:29
// PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Range(ReadInteger,1,-1).Select(t->1/t).Sum.Println;
end.

Пример
50
4.49920533832942
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика