Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи

@Amusing · Регистрация: 21.11.2017

Студворк — интернет-сервис помощи студентам

Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи.

@alex5code · 28.11.2017, 18:02

Из глыбы этой высекай творенье, коль глыба не люба.

Pascal

Var Arr: array[1..1000] of real;
begin
  Var N:= ReadlnInteger('N = ');
  for var index:=1 to N do Arr[index]:= ReadlnReal('Arr[' + index + '] = ');
  Var sum: real := Arr[1] + Arr[2];
  
  for var ind1:= 3 to N do begin
  var N1:= 1;
  var N2:= 1;
  var N3: integer;
    for var ind2:=3 to N do begin
    N3 := N1 + N2;
        if N3 = ind1 then begin
        sum += Arr[ind1];
        break;
        end;
    N1 := N2;
    N2 := N3;
   end;
  end;
  Writeln(sum);
end.

@eaa · 28.11.2017, 18:32

Pascal

begin
  var n := ReadInteger('Введите размер массива N:');
  var a := ReadArrReal('Введите элементы массива:', n);
  Println('Сумма =', (Seq(0) + SeqWhile(1, 2, (x, y)-> x + y, i -> i < n)).Select(i -> a[i]).Sum)
end.

@Amusing 0 / 0 / 0 Регистрация: 21.11.2017 Сообщений: 11
		1
	Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи 28.11.2017, 17:08. Показов 3556. Ответов 2 Метки паскаль abc.net (Все метки) Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. 0

	28.11.2017, 18:32

Опции темы

Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи

Решение