PascalНаписать программу с использованием цикла с параметром.Дано целое число n ( больше 0). Найдите произведение 1/6*4/11*...*N^2/(n^2+2n+3) (вещественное число)
Pascal
Написать программу с использованием цикла с параметром.
Дано целое число n (>0). Найдите произведение 1/6*4/11*...*N^2/(n^2+2n+3) (вещественное число)
Гость
Ответ(ы) на вопрос:
Гость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);
не уверен но должно работать...
Не нашли ответ?
Похожие вопросы