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

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

 

Спонсори

Завдання № 17. Перевірити, чи є задане натуральне число простим

Завдання № 17. Перевірити, чи є задане натуральне число простим
Формулювання. Дано натуральне число. Перевірити, чи є воно простим.
Примітка: простим називається натуральне число, яке має рівно два різних натуральних дільника: одиницю й саме це число.
Рішення. Завдання відрізняється від попередньої тільки тим, що замість виведення на екран числа дільників, що міститься в змінній count, необхідно виконати перевірку рівності рахунок-чика числу 2. Якщо у числа знайдено всього два подільника, то воно просте і потрібно вивести поклади-вальний відповідь, в Інакше - негативну відповідь. А перевірку через умовний оператор, як ми вже знаємо, можна замінити на висновок результату самого булевского вираження за допомогою оператора write (writeln).

Код:


  1. program PrimeTest;
  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 = 2)
  11. end.

0017.-PrimeTest.rar [577 b] (cкачувань: 11)

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