сумма 10 членов геометрической прогрессии

[ilyarybnik23]

Цикл с параметром for в delphi.
Найти сумму 10 членов геометрической прогрессии B, BQ, BQQ, BQQQ, где B-первый член прогрессии, Q-постоянный множитель

[min@y™]

ну хорош уже...
это уж совсем детский сад, младшая группа.

[Stilet]

ilyarybnik23

А сам как нибудь пробовал?

[min@y™]

Сообщение от Stilet

А сам как нибудь пробовал?

конечно нет, он же не идиот!
ему ж в интернете все решат, а в конце обучения торжественно вручат


НЕПРЕМЕННО КРАСНЕНЬКИЙ!

[Stilet]

НЕПРЕМЕННО КРАСНЕНЬКИЙ!

...дембельский альбом

Не ну серьезно. А то ведь можно так красиво решить хитростно, а препод отправит в призыв.

[ilyarybnik23]

Не, пацаны, мне программирование вообще не надо, но оно в программу включено, а с нем у меня проблемы(((

[min@y™]

оно в программу включено, а с нем у меня проблемы(((

сваливай оттуда, ты явно не туда поступил.
сходи лучше вот к этому дяде, он тебя давно ждёт-грустит.

[Stilet]

мне программирование вообще не надо

Пичаль то какакя...
Тогда такого должно хватить:

uses math;
var s,q,b:double;i:integer;
begin
 for i:=1 to 10 do s:=s+b*power(q,i); write(s) ;readln;
end.

[Serge_Bliznykov]

var s,q,b:double;
  i:integer;
begin
 Readln(b, q);
 s := B;
 for i:=2 to 10 do begin
     b := b * q;
     s:=s+b;
 end;
 writeLn('sum = ',s:5:2);
 readln;
end.

а можно и просто по формуле посчитать:
http://www.grandars.ru/student/vyssh...ogressiya.html
http://www.uznateshe.ru/summa-geomet...oy-progressii/