Назад Зміст Вперед

Пошук декількох чисел, що

задовольняють деякій умові

Приклад 1

Знайдіть мінімальне число, яке більше за 200 та кратне 17.

Змінні:

Вхідних даних немає.

 

Вихідні:

Алгоритм

  1. Шукане число більше 200. Тому пошук почнемо з числа 200. Присвоїмо початкове значення змінній n:=200. Оберемо цикл repeat, бо спочатку потрібно збільшити число n на 1, а потім перевіряти умову завершення циклу       n mod 17=0.
  2. У циклі будемо збільшувати число n на 1 (бо шукане число більше 200) та перевіряти, чи воно кратне 17.
  3. Цикл завершується, коли число n кратне 17 (n mod 17=0). Ця умова перевіряється у until, бо є умовою закінчення циклу.
  4. Після завершення циклу виведення знайденого числа на екран.

Програма

 Var n:word;
Begin
 n:=200;
 repeat
    n:=n+1;
 until n mod 17=0;
 writeln(n,' ');
end.

Результат роботи програми

204

Приклад 2

Знайдіть мінімальне число, яке більше за 200 та кратне 17.

Змінні:

Вхідних даних немає.

 

Вихідні:

Алгоритм

  1. Шукане число менше 200. Тому пошук почнемо з числа 200. Присвоїмо початкове значення змінній n:=200. Оберемо цикл repeat, бо спочатку потрібно зменшити число n на 1, а потім перевіряти умову завершення циклу       n mod 17=0 .
  2. У циклі будемо зменшувати число n на 1 (бо шукане число менше 200) та перевіряти, чи воно кратне 17.
  3. Цикл завершується, коли число n mod 17=0. Ця умова перевіряється у until, бо є умовою закінчення циклу.
  4. Після завершення циклу вивід знайденого числа на екран.

Програма

 Var n:word;
Begin
 n:=200;
 repeat
    n:=n-1;
 until n mod 17=0;
 writeln(n,' ');
end.

Результат роботи програми

187

Приклад 3

Знайдіть 5 перших чисел, що більші за 200 та кратні 17.

Змінні:

Вхідних даних немає.

 

Вихідні:

Проміжні:

Алгоритм

  1. Шукані числа більше 200. Тому пошук почнемо з числа 200. Присвоїмо початкове значення змінній n:=200, а змінній k:=0. Також оберемо цикл repeat.
  2. У циклі будемо:
  3. Цикл завершується, коли надруковано вже 5 чисел, тобто якщо k=5. Ця умова перевіряється у until, бо є умовою закінчення циклу.

Блок–схема програми

Програма

 Var n,k:word;
Begin
 n:=200; k:=0;
 repeat
    n:=n+1;
    If n mod 17=0 then
      Begin
         write(n,' '); k:=k+1;
      end;
 until k=5;
end.

Результат роботи програми

204 221 238 255 272

Варіанти задач

  1. Знайдіть максимальне з натуральних чисел, що менше за 5000, яке кратне числу 39.

  2. Знайдіть мінімальне з натуральних чисел, що більше за 8000, яке кратне 47.

  3. Знайдіть 15 перших натуральних чисел, що більші за 100 та кратні 19.

  4. Знайдіть 20 перших натуральних чисел, що більші за 500 та кратні 13 або 17.

  5. Знайдіть 10 перших натуральних чисел, що більші за 100, кратні 9 та закінчуються на цифру 7.

  6. Знайдіть 3 найбільших натуральних числа, що менші за 10000 та кратні 218.

  7. Знайдіть 6 найбільших натуральних числа, що менші за 8000, кратні 81 та закінчуються цифрою 3.

  8. Знайдіть суму 5 перших натуральних чисел, що більші за 100 та кратні 123.

  9. Знайдіть добуток 3 перших натуральних чисел, що більші за 50 та кратні 14.

  10. Надрукуйте у рядок 8 перших натуральних чисел, що більші за 200 і кратні 22, та знайдіть їх суму.

  11. Надрукуйте у рядок 4 перших натуральних числа, що більші за 50 і кратні 21, та знайдіть їх добуток.

  12. Надрукуйте у рядок 5 найбільших натуральних числа, що менші за 500 і кратні 43, та знайдіть їх суму.

  13. Надрукуйте у рядок 3 найбільших натуральних числа, що менші за 250, кратні 23, та знайдіть їх добуток.

  14. Надрукуйте у рядок 7 перших натуральних чисел, що більші за 600 і кратні 26, та знайдіть суму тих з них, що закінчуються цифрою 0.

  15. Надрукуйте у рядок 15 перших натуральних числа, що більші за 70 і  кратні 17, та знайдіть добуток тих з них, що закінчуються цифрою 5.

  16. Надрукуйте у рядок 8 найбільших натуральних числа, що менші за 5000 і кратні 47, та знайдіть суму тих з них, що закінчуються парною цифрою.

  17. Надрукуйте у рядок 6 найбільших натуральних чисел, що менші за 200 і кратні 15. Знайдіть добуток тих з них, що закінчуються цифрою 0.

Назад Зміст Вперед