Задача на паскале с геометрической прогрессией

pascal код геометрическая прогрессия

Подскажите как решить задачу подобного плана:
"Вычислить сумму
S=2+4+8+16+32+64+128+256+512
Для вычисления использовать формулу подсчета суммы геометрической прогрессии:
S^n=a^1(q^n-1)
_______
q - 1
Где n-количество слагаемых.
----------------------------
Пробовал так:
program geoprog;
var a,q,n:integer;
S:real;
begin
a:=2;
q:=2;
n:=9;
S:= ( a*1 * ( q*n-1 )/(q-1) );
writeln(S);
end.
------------------------------

Выдает результат 34,где ошибся?

Примечание:
Подскажите тогда,Как правильно написать формулу на языке паскаля.
Ответы:
( q*n-1 )=(2*9-1)=17
a*1*( q*n-1 )=2*1*17=34
a*1*( q*n-1 )/(q-1)=34/(2-1)=34/1=34
вот что вычисляет Ваша программа
program geoprog;
var a,i,j,n:integer;
      S:real;
begin
a:=2;
n:=9;
j:=1;
S:=0;
For i:=1 to n do
Begin
 j:=j*2;
 S:=S+j;
End;
writeln(S);
end.


11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.