Произведение - Паскаль, Turbo Pascal, PascalABC.NET

Anna T · 12.12.2010, 18:51

Не могли бы вы Вычислить произведение n сомножителей :
2/1 * 2/3 * 4/3 * 4/5 * 6/5 * 6/7 * ....

Stilet · 12.12.2010, 20:36

С побелки:

Код:

var i:integer;r:double;
begin
 i:=2;r:=1;
 while i<10 do begin
  r:=r*(i/(i-1))*(i/(i+1));
  inc(i,2);
 end;
 write(r);readln;
emd.

Anna T · 13.12.2010, 18:48

Огромное Вам спасибо

12.12.2010, 18:51	#1
Anna T Регистрация: 17.11.2010 Сообщений: 8	Произведение Не могли бы вы Вычислить произведение n сомножителей : 2/1 * 2/3 * 4/3 * 4/5 * 6/5 * 6/7 * ....

12.12.2010, 20:36	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	С побелки: Код: `var i:integer;r:double; begin i:=2;r:=1; while i<10 do begin r:=r(i/(i-1))(i/(i+1)); inc(i,2); end; write(r);readln; emd.` I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Произведение матрицы	BaronVik	Помощь студентам	2	05.05.2010 08:49
Произведение в матрице	BaronVik	Помощь студентам	2	05.05.2010 00:24
скалярное произведение	tilperion777	Паскаль, Turbo Pascal, PascalABC.NET	0	11.04.2010 16:13
произведение матриц	Lampard	Помощь студентам	3	30.03.2009 19:00
Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей	NoUserName	Помощь студентам	3	01.03.2009 18:10

13.12.2010, 18:48	#3
Anna T Регистрация: 17.11.2010 Сообщений: 8	Огромное Вам спасибо