Показать сообщение отдельно

  #2152  
Старый 03.01.2010, 18:42
lokli
Новичок
Регистрация: 28.12.2009
Сообщений: 7
Провел на форуме:
119162

Репутация: 0
По умолчанию

Перед циклом
Код:
for i := 1 to N do z := z*(i*2-1);
вставь строку
Код:
N:=((N div 2)+1);
этим ты поставиш количество итераций цикла равным количеству непарных чисел до заданного числа N. Код не проверял но должно работать.
 
Ответить с цитированием