Помогите пожалуйста! Паскаль
Дано число n, найти P=(1-1/2^2 )*(1-1/3^2 )*(1-1/4^2 )*...*(1-1/n^2 )
var i,n:integer;
p: real;
begin
p:=1;
realn(n);
for i:=2 to n do
p:=p*(1-1/i/i);
writeln(p)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
