1+3+3^2+...+3^7
Написать программу в Pascal

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal:

program SumOfPowers;
var
i, sum, term: integer;
begin
sum := 0;
term := 1;
for i := 0 to 7 do
begin
sum := sum + term;
term := term * 3;
end;
writeln('Сумма ряда 1+3+3^2+...+3^7 равна ', sum);
end.

Эта программа вычисляет сумму ряда 1+3+3^2+...+3^7 и выводит результат на экран.