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

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

 

Спонсори

Завдання № 42. Знайти кількість простих членів послідовності

Завдання № 42. Знайти кількість простих членів послідовності
Формулювання. Дана послідовність натуральних чисел, обмежена введенням нуля. Вивести на кількість простих членів цієї послідовності.
Рішення. Принцип вирішення цього завдання нагадує рішення обох попередніх завдань. При цьому алгоритм розпізнавання простих чисел можна взяти із задачі 17, трохи змінивши його:

s: = 0;
for i: = 1 to a do begin
  if a mod i = 0 then inc (s)
end;
if s = 2 then inc (count);

Тут ми попередньо змінили назви змінних і замість виведення відповіді про просто-ті числа працюємо з лічильником знайдених простих чисел. Нагадаємо, що в циклі вважається ко-личество всіх можливих натуральних дільників числа, і якщо їх 2, то воно просте, і необхідно збільшити лічильник простих чисел count. Коли вся числова послідовність буде обро-тана, залишиться тільки вивести на екран значення змінної

 

Код:


  1. program NumOfPrimes;
  2. var
  3. a, i, s, count: word;
  4. begin
  5. read(a);
  6. count := 0;
  7. while a <> 0 do begin
  8. s := 0;
  9. for i := 1 to a do begin
  10.     if a mod i = 0 then inc(s)
  11. end;
  12. if s = 2 then inc(count);
  13. read(a)
  14. end;
  15. writeln(count)
  16. end.

0042.-NumOfPrimes.rar [657 b] (cкачувань: 3)

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