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

Дано натуральное число n. Вычислить P = (1-[latex] \frac{1}{2 ^{2} } [/latex])(1-[latex] \frac{1}{3 ^{2} } [/latex]) ... (1-[latex] \frac{1}{n ^{2} } [/latex]) , где n> 2 . Если можно, то напишите на языке ПАСКАЛЯ.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы