Решить задачу ** паскале. s=1/a+1/(a^2)+1/(a^4)+...+1/((a^2)^n) если каждое действие...

Question

Решить задачу на паскале. s=1/a+1/(a^2)+1/(a^4)+...+1/((a^2)^n)
если каждое действие обозначить как допустим A, то есть S=A1+A2+A3+...+An
по какой формуле мы допустим из A2 получаем A3?

Answer 1

А3 получается из А2 так: А3=А2/(а*а). Это называется рекуррентная формула.
Первое слагаемое здесь должно быть просто 1. В этом случае программа будет такой:
var a,an,s:real; n,i:integer;
begin
write('a=');readln(a);
write('n=');readln(n);
 an:=1; s:=1;
 for i:=1 to n do
 begin
 an:=an/(a*a);
 s:=s+an;
 end;
 writeln('s = ',s:8:5);
end.