Как найти сумму чисел на паскале С=1/sqr(2)+1/sqr(20)+...........+1/sqr(200000) ?
Как найти сумму чисел на паскале С=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
Не нашли ответ?
Похожие вопросы