Turbo PascalДаны действительное число а, натуральное число n. Вычислить: S = 1/a + 1/a^2...

Question

Turbo Pascal
Даны действительное число а, натуральное число n. Вычислить:
S = 1/a + 1/a^2 + 1/a^4 + … + 1/a^2n-2

Comments

Первое слагаемое может быть = 1, а не 1/а?

---

Незнаю

Answer 1

Как в задании:
var a,an,s:real; n,i:integer;
begin
write('a = '); readln(a);
write('n = '); readln(n);
s:=1/a;
an:=1;
for i:=2 to n do
 begin
 an:=an*a*a;
 s:=s+1/an;
 end;
writeln('s = ',s);
end.

Пример:
a = 2
n = 4
s = 0.828125