Question

Задача в Паскале.
Выведите на печать сумму N членов геометрической прогрессии с заданным знаменателем прогрессии q и начальным значением a .

Answer 1

program massiv;
var
a: array [1..100] of integer;
n,i,f,d,s: integer;
begin
writeln('Введите первый член прогрессии:');
readln(f);
writeln('Введите знаменатель прогрессии:');
readln(d);
writeln('Введите число членов прогрессии:');
readln(n);
a[1]:=f;
s:=a[1];
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=a[i-1]*d;
write(a[i],' ');
end;
writeln;
writeln(s);
end.

Answer 2

Я исправил, все вычисляется