Паскаль

[No name9]

Не могу понять как быть с такой прогрессией в паскале, помогите пожалуйста. Найти сумму k чисел стоящих на четных местах в геометрической прогрессии 2,8,32,128,512...

[BDA]

Числа на четных местах в геометрической прогрессии образуют свою геометрическую прогрессию с другим первым членом и знаменателем прогрессии. Найти их, а затем подставить в формулу суммы членов геометрической прогрессии.

[Aleksandr H.]

в гугле 2ая ссылка выдает так быть

var
   i, n: integer;
   pr_item, sum: longint;
begin
     writeln('Enter num of progression elements (>=2):');
     readln(n);

     pr_item := 2;
     sum := 0;
     writeln('Summed progression elements:');
     for i := 0 to n do
     begin
          pr_item := pr_item shl 2;
          if (not odd(i)) then
          begin
             sum := sum + pr_item;
             write(pr_item, ' ');
          end;
     end;
     writeln;
     writeln('sum = ', sum);
end.

[evg_m]

s:=8 *( (4*4)^(k-1) -1 ) / (4 *4 -1)
8 -- второй член прогрессии ( первый элемент новой прогрессии из четных элементов)
4 *4 -- коэффициент "новой" прогресии
k -- число элементов в "новой" прогресии

в паскале.
1. с помощью цикла пишем программу вычисления суммы "обычной" геометрической прогрессии из k элементов.
2. удваиваем число элементов.
3. пропускаем ненужные нам нечетные элементы.

P.S. пока сочинял уже ответили

[No name9]

Спасибо всем за помощь