Составить пользовательскую процедуру или функцию для вычисления произведения

@dimasBy · Регистрация: 13.11.2012

Author24 — интернет-сервис помощи студентам

Составить пользовательскую процедуру или функцию для вычисления произведения:
(1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ••• * (n/(n+1)2).

@ermolay · 14.11.2012, 13:08

если под записью n/(n+1)2 имелось в виду:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{n}{{(n+1)}^{2}}$

Pascal

procedure p(n: integer);
var i: integer;
    s: real;
begin
  s:=1;
  for i:=1 to n do
  begin
    s:=s*(i/sqr(i+1));
  end;
  writeln('s=',s:0:3);
end;
 
var 
  n: integer;
begin
  write('Введите n: ');
  readln(n);
  p(n);
  readln;
end.

@dimasBy 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 39
		1
	Составить пользовательскую процедуру или функцию для вычисления произведения 14.11.2012, 03:00. Показов 1177. Ответов 1 Метки нет (Все метки) Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ••• * (n/(n+1)2). 0

	14.11.2012, 13:08

Составить пользовательскую процедуру или функцию для вычисления произведения

Решение