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

Информатика

Галиша

8 марта, 20:09

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

+2

Ответы (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.