Напишите программу для нахождения суммы десяти первых элементов ряда

@Neazy · Регистрация: 16.12.2017

an =2*n+1/n^2!

@Sun Serega · 08.12.2018, 17:16

n начинает считаться от 1 или от 0?

@Neazy · 08.12.2018, 17:17 **[ТС]**

С 1

@Sun Serega · 08.12.2018, 17:20

Pascal

begin
  Range(1,10)
  .Select(
    N->
    2*N +
    1/Range(2, N*N).Aggregate(1.0, (mlt, x)->mlt*x)
  )
  .Sum.Print
end.

@JuriiMW · 08.12.2018, 17:34

Можно же короче:

Pascal

1
2
3

begin
  Range(1,10).Sum(n->2*n+Range(1,n*n).Aggregate(1.0,(f,v)->f/v)).Print;
end.

@Sun Serega · 08.12.2018, 17:38

Ну, форматирование не к чему убирать. И деление дольше выполняется чем умножение. А на 1 делить вообще бесполезно.

@Neazy 0 / 0 / 0 Регистрация: 16.12.2017 Сообщений: 37
		1
	Напишите программу для нахождения суммы десяти первых элементов ряда 08.12.2018, 17:11. Показов 623. Ответов 5 Метки нет (Все метки) an =2*n+1/n^2! 0

@Sun Serega 2132 / 1276 / 482 Регистрация: 07.04.2017 Сообщений: 4,490
	08.12.2018, 17:16	2
	n начинает считаться от 1 или от 0? 0

@Neazy 0 / 0 / 0 Регистрация: 16.12.2017 Сообщений: 37
	08.12.2018, 17:17 [ТС]	3
	С 1 0

@Sun Serega 2132 / 1276 / 482 Регистрация: 07.04.2017 Сообщений: 4,490
	08.12.2018, 17:38	6
	Ну, форматирование не к чему убирать. И деление дольше выполняется чем умножение. А на 1 делить вообще бесполезно. 0

Опции темы