Сделайте пожалуйста код - Паскаль, Turbo Pascal, PascalABC.NET

Volkod · 12.11.2015, 01:04

Вот выражение его надо закодить умоляю кто понимает помогите

Stilet · 12.11.2015, 09:50

Хм...

Код:

var i:integer; pipi:Double;
begin
  i:=1; pipi:=1; while i<10 do begin
    pipi:=pipi*(i+1)/i;   inc(i);
    pipi:=pipi*(i/(i+1)); inc(i);
  end;
  Write(pipi);
end;

Окке-е-е-й?

12.11.2015, 09:50	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Хм... Код: `var i:integer; pipi:Double; begin i:=1; pipi:=1; while i<10 do begin pipi:=pipi(i+1)/i; inc(i); pipi:=pipi(i/(i+1)); inc(i); end; Write(pipi); end;` Окке-е-е-й? I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сделайте, пожалуйста прогу!!!! Оч оч надо	BeaU	Паскаль, Turbo Pascal, PascalABC.NET	3	06.06.2009 18:40
Сделайте, мне, пожалуйста, задачку на условный оператор	BeaU	Паскаль, Turbo Pascal, PascalABC.NET	2	03.06.2009 17:35
задача на цикл с условием . сделайте пожалуйста	LIL_VAdiK	Помощь студентам	1	03.02.2009 19:31
Сделайте мне пожалуйста прграммки.(С++)	stalkerrr	Помощь студентам	3	23.12.2008 18:34