Как выполнить данную операцию на паскале? вычислить (1+(1/(1^2))) *(1+(1/(2^2)))* (1+(1/(3^2))) ...*(1+(1/
Как выполнить данную операцию на паскале? вычислить (1+(1/(1^2))) *(1+(1/(2^2)))* (1+(1/(3^2))) ...*(1+(1/(n^2)))
если кому легче то вот как оно же выглядит на паскале (1+(1/(1*1))) *(1+(1/(2*2)))* (1+(1/(3*3))) ...*(1+(1/(n*n)))
Гость
Ответ(ы) на вопрос:
Гость Var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
writeln('p = ',p);
end.
Пример:
n = 5
p = 3.06944444444444
Не нашли ответ?
Похожие вопросы