Форум геймеров и читеров 4cheaT
Реклама:

Помогите пожалуйста написать программу для паскаль абц

  1. Cтатус:
    Оффлайн
    Регистрация:
    03.04.2013
    Сообщений:
    45
    Благодарностей:
    0
    Мнения:
    0
    Репутация:
    10 [+/-]
    Баланс:
    0
    Новое
    Помогите пожалуйста написать программу для паскаль абц

    Реклама:
    , но при помощи не слишком сложных операций. "Пусть n - натуральное число и пусть n!! означает
    1*3*5*...*n для нечетного n и 2*4*...*n для четного n.
    Вычислить n!!" n!! -факториал. Т. е. нужно ввести натурально число (например 5), а программа должна посчитать произведение нечетных чисел (1*3*5=15)
     
    Поддержи проект -поделись!
  2. Cтатус:
    Оффлайн
    Регистрация:
    25.02.2013
    Сообщений:
    36
    Благодарностей:
    0
    Мнения:
    -8
    Репутация:
    10 [+/-]
    Баланс:
    0
    Новое
    var n,i,p: integer; begin p:=1; readln(n); if n mod 2=0 then i:=2 else i:=1; while i<=n do begin p:=p*i; inc(i,2) end; writeln(p) end.
     
    Поддержи проект -поделись!
  3. Cтатус:
    Оффлайн
    Регистрация:
    17.07.2013
    Сообщений:
    35
    Благодарностей:
    0
    Мнения:
    0
    Репутация:
    10 [+/-]
    Баланс:
    0
    Новое
    Реклама:
    p:=1; i:=1; while i<=n do begin i:=i+2; p:=p*i end;
     
    Поддержи проект -поделись!
  4. Cтатус:
    Оффлайн
    Регистрация:
    11.06.2013
    Сообщений:
    38
    Благодарностей:
    0
    Мнения:
    0
    Репутация:
    10 [+/-]
    Баланс:
    0
    Новое
    Умножать проще со старших элементов: result := 1; while n > 1 do begin result := result*n; n := n - 2; end;
     
    Поддержи проект -поделись!
Главная - Перед категорией ММОРПГ
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Похожие темы
Ответов
Последнее сообщение
  1. Помогите написать программу в Паскаль))

    Данилка05061998, Вопросы о компьютерах
    Ответов:
    0
    Данилка05061998
    2016-06-10 21:22
  2. Ответов:
    2
    Владим
    2016-06-05 12:52
  3. Ответов:
    1
    Арик
    2016-06-02 00:06
  4. написать программу в паскаль abc

    Rustam, Вопросы о компьютерах
    Ответов:
    0
  5. Написать программу паскаль

    rost, Вопросы по сайтостроению
    Ответов:
    2