Pascal

Написать программу с использованием цикла с параметром.

Дано целое число n (>0). Найдите произведение 1/64/11 ... * N^2 / (n^2+2n+3) (вещественное число)

Question

Серапион

17 июля, 17:45

+2

Ответы (1)

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

Егуня · Answer 1

Var i, p, n:integer;

begin

readln (i) ; p:=1;

for n:=1 to i do

p:=p*n^2 / (n^2+2n+3) ;

writeln (p) ;

не уверен но должно работать ...

PascalНаписать программу с использованием цикла с параметром.Дано целое число n (>0). Найдите произведение 1/6*4/11 * ... * N^2 / (n^2+2n+3) (вещественное число)