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 и выводит результат на экран.
Пример программы на 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 и выводит результат на экран.