Как найти сумму чисел ** паскале С=1/sqr(2)+1/sqr(20)+...........+1/sqr(200000) ?

Question

Как найти сумму чисел на паскале С=1/sqr(2)+1/sqr(20)+...........+1/sqr(200000) ?

Answer 1

Var c,a :real; i:integer;
begin
c:=0;a:=2;
for i:=0 to 5 do
 begin
 c:=c+1/sqr(a);
 writeln('a=',a);
 a:=a*10;
 end;
writeln('C=',c);
end. 

Результат:
a=2
a=20
a=200
a=2000
a=20000
a=200000
C=0.252525252525