Question

Дано натуральное число n. Вычислить P = (1-$frac{1}{2 ^{2} }$)(1-$frac{1}{3 ^{2} }$) ... (1-$frac{1}{n ^{2} }$) , где n> 2 . Если можно, то напишите на языке ПАСКАЛЯ.

Answer 1

var n:integer;
p:real;
begin
p:=1;
writeln('введи n>2');
readln(n);
for i:=2 to n do
p:=p*(1-1/(sqr(i)));
writeln(p);
readln;
end.