Показать сообщение отдельно
  #7  
Старый 02.05.2009, 13:24
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
По умолчанию

Похоже у чела просто отсутствует привычка думать (судя по его вопросам).
А формула нормальная, это произведение первых n нечётных чисел.
Код:
function Calc(n:integer):integer;
var i:integer;
begin
 Result := 1;
 for i:=2 to n do Result := Result * ( 2*i - 1 );
end;
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
Ответить с цитированием