Проверте пожайлуста написания програмы

[АлександрFRONT]

Проверте пожайлуста правильно ли я написал програму на Паскале
которая з точностю 0.01 % ищет суму ряда
(1/sqr(2))*(1/sqr(3))*(1/sqr(4))+...


Program Sr;
Uses crt;
var
t:real;
s:real;
i:longint;
begin
clrscr;
t:=0.0001;
i:=1;
s:=0;
repeat
s:=s+( 1/sqr(i ));
inc(i)
until ( 1/(sqr(i )))<t;
writeln('Summa rady = ',s:12:9);
writeln('Pods4utano ',i,' chlenov v rady');
readln;
END.

[_Engine_]

Неправильно.
В условии начинаем считать от 2-х, а ты от 1-го.
В условии идет перемножение, а у тебя сложение.

[АлександрFRONT]

Сообщение от _Engine_

Неправильно.
В условии начинаем считать от 2-х, а ты от 1-го.
В условии идет перемножение, а у тебя сложение.

Cкажите пожайлуста как з знаком умножения сделать???

[alex_fcsm]

Интересно как выглядит ряд, если там знаки умножения только?

[АлександрFRONT]

Сообщение от alex_fcsm

Интересно как выглядит ряд, если там знаки умножения только?

Посмотрите пожайлуста внимательно на условие видите в конце стоит знак плюс потому знак умножения прсто так не прокатит

[alex_fcsm]

суму ряда
(1/sqr(2))*(1/sqr(3))*(1/sqr(4))+...

Нужно писать либо несколько слагаемых либо указывать общий вид. По этому слагаемому можно предложить несколько рядов
1.(1/sqr(2))*(1/sqr(3))*(1/sqr(4))+(1/sqr(2))*(1/sqr(3))*(1/sqr(4)*(1/sqr(5))...
2.(1/sqr(2))*(1/sqr(3))*(1/sqr(4))+(1/sqr(3))*(1/sqr(4))*(1/sqr(5))+...

А в программе у Вас (1/sqr(2))+(1/sqr(3))+(1/sqr(4))+...