Завдання № 28. Обчислити факторіал » Pascal - основи програмування

Основи програмування на мові Pascal

 

Спонсори

Завдання № 28. Обчислити факторіал

Завдання № 28. Обчислити факторіал
Формулювання. Дано натуральне число n (яке також може дорівнювати нулю). Ви-числити n!
Примітка: n! (Факторіал числа n, читається «Ен факторіал») - твір всіх нату-ральних чисел до n включно.
Рішення. Завдання дуже просто вирішується через цикл for по всіх i від 1 до n, в тілі якого ми на кожному кроці домножаем змінну-результат fact (якої до входу в цикл присвоєно значення 1) на i. При цьому зберігається і правило 0! = 1, так як при введенні нуля програма не ввійде в цикл і на вихід піде незмінена у змінній fact число 1.

 

Код:


  1. program Factorial;
  2. var
  3. i, n: byte;
  4. fact: integer;
  5. begin
  6. readln(n);
  7. fact := 1;
  8. for i := 1 to n do begin
  9. fact := fact * i
  10. end;
  11. writeln(fact)
  12. end.

0028.-Factorial.rar [551 b] (cкачувань: 3)

скачать dle 10.4фильмы бесплатно Наступна сторінка » Завдання № 29. Обчислити число сполуче... Попередня сторінка » Завдання № 27. Обчислити значення мног...