Question

Вычислить сумму 1+1/3+1/3^2 +..+1/3^8 .Операцию возведения в степень не использовать.Напишите полную программу на паскале

Answer 1

Ответ:

Получилось так, надеюсь хоть правильно!

Объяснение:

program Octavleniy; (Можешь свое)

var

sum: real;

a, n, i: integer;

begin

sum :=1;

n: :=3;

for a :=1 to 8 do

begin

for i := 1 to a - 1 do

n :-n*3;

sum := sum+l / n;

n :=3;

end;

Writeln(sum);

end.