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

если каждое действие обозначить как допустим A, то есть S=A1+A2+A3 + ... + An

по какой формуле мы допустим из A2 получаем A3?

А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.