Завдання № 16. Підрахувати загальне число дільників натурального числа » Pascal - основи програмування

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

 

Спонсори

Завдання № 16. Підрахувати загальне число дільників натурального числа

Завдання № 16. Підрахувати загальне число дільників натурального числа
Формулювання. Дано натуральне число. Підрахувати загальну кількість його подільників.
Рішення. Завдання досить схожа на дві попередні. У ній також необхідно провести перебір у циклі деякої кількості натуральних чисел на предмет виявлення дільників n, але при цьому необхідно знайти не перший з них з будь-якого кінця відрізка [1, n] (це відрізок, що містить всі числа від 1 до n включно ), а порахувати їх. Це можна зробити за допомогою лічильника count, який потрібно обнулити безпосередньо перед входом в цикл. Потім в умовах а-ном операторі if в разі істинності умови подільності числа n (n mod i = 0) потрібно увеличи-вать лічильник count на одиницю (це зручно робити за допомогою оператора inc).
    Алгоритм природною мовою:
1) Введення n;
2) Обнулення змінної count (в силу необхідності працювати з її значенням без пред-варітельной присвоювання їй якогось числа)
3) Запуск циклу, при якому i змінюється від 1 до n. У циклі:
    1. Якщо n ділиться на i (тобто, залишок від ділення числа n на i дорівнює 0), то збільшуємо значення змінної count на 1;
4) Виведення на екран значення змінної count.

Код:


  1. program CountDiv;
  2. var
  3. i, n, count: word;
  4. begin
  5. readln(n);
  6. count := 0;
  7. for i := 1 to n do begin
  8. if n mod i = 0 then inc(count)
  9. end;
  10. writeln(count)
  11. end.

0016.-CountDiv.rar [560 b] (cкачувань: 8)

скачать dle 10.4фильмы бесплатно Наступна сторінка » Завдання № 17. Перевірити, чи є задане н... Попередня сторінка » Завдання № 15. Знайти найменший нетрив...