Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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