Как выполнить данную операцию на паскале? вычислить (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

Информатика

Русина

19 марта, 07:50

Как выполнить данную операцию на паскале? вычислить (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)))

+4

Ответы (1)

Знаете ответ?

Лекся · Answer 1

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.