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

@icon · Регистрация: 03.11.2013

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

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

@pro100smart · 05.11.2013, 11:53

Pascal

function proizved(n: integer): real;
var i: integer;
s: real;
begin
s:=1;
for i:=1 to n do
begin
s:=s*((i*10+2)/((i+1)*2));
end;
proizved:=s;
end;
 
var n: integer;
 
begin
read (n);
write (proizved(n));
end.

@icon 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 4
		1
	Составить пользовательскую процедуру или функцию для вычисления произведения 04.11.2013, 10:51. Показов 1172. Ответов 1 Метки нет (Все метки) Составить пользовательскую процедуру или функцию для вычисления произведения: (12/(1+1)2) * ( 22/(2+1)2) * ( 32/(3+1)2) * ··· * (n2/(n+1)2). 0

	05.11.2013, 11:53

Опции темы

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

Решение