Как выполнить данную операцию на паскале? вычислить (1+(1/(1^2))) (1+(1/(2^2))) (1+(1/(3^2))) ...(1+(1/(n^2))) если кому легче то вот как оно же выглядит на паскале (1+(1/(11))) (1+(1/(22)))* (1+(1/(33))) ...(1+(1/(n*n)))

Question

Алгебра 5 - 9 классы

Yozshular 09.23.18

Решено

Как выполнить данную операцию на паскале? вычислить (1+(1/(1^2))) (1+(1/(2^2))) (1+(1/(3^2))) ...(1+(1/(n^2))) если кому легче то вот как оно же выглядит на паскале (1+(1/(11))) (1+(1/(22)))* (1+(1/(33))) ...(1+(1/(n*n)))

236

ОТВЕТЫ

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

Var
n, i :integer;
resault :real;
Begin
write(n = ); readln(n);
resault := 1;

for i:= 1 to n do
resault *= 1 + (1 / sqr(i) );

Writeln(Результат: , resault)
End.

37

Отв. дан 2021-11-14 00:00:00 Оксана

Другие вопросы в разделе - Алгебра