Завдання № 15. Знайти найменший нетривіальний дільник натурального числа » Pascal - основи програмування

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

 

Спонсори

Завдання № 15. Знайти найменший нетривіальний дільник натурального числа

Завдання № 15. Знайти найменший нетривіальний дільник натурального числа
Формулювання. Дано натуральне число. Знайти його найменший нетривіальний дільник або вивести саме це число, якщо такого немає.
Рішення. Завдання вирішується аналогічно попередньої. При цьому необхідно почати звичайний цикл із збільшенням, при якому змінна циклу i змінюється від 2 до n (така верхня межа потрібна для того, щоб цикл завжди закінчувався, бо коли i дорівнюватиме n, виконається усло-віє n mod i = 0) . Весь інший код при цьому не відрізняється.

Код:


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

15.rar [487 b] (cкачувань: 8)

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