Определить, делителем каких целых чисел является целое число

Определение делителей среди чисел A, B и C: решение на Pascal

Постановка задачи

Даны три целых числа A, B, C и целое число N. Необходимо определить, для каких из чисел A, B и C число N является делителем.

Алгоритм решения

Для решения задачи используем:

• Операцию mod (остаток от деления)
• Краткую форму условного оператора if-then
• Принцип: если остаток от деления равен 0, то N - делитель

Решение на Pascal с пояснениями

program FindDivisors;
var
  n, a, b, c: integer;
begin
  // Ввод четырех чисел: A, B, C и N
  writeln('Введите четыре целых числа (A, B, C, N через пробел):');
  readln(a, b, c, n);
  
  // Заголовок вывода
  writeln('Число ', n, ' - делитель чисел:');
  
  // Проверка для числа A
  if a mod n = 0 then 
    writeln(a);
  
  // Проверка для числа B
  if b mod n = 0 then 
    writeln(b);
  
  // Проверка для числа C
  if c mod n = 0 then 
    writeln(c);
end.

Как работает программа:

1. Программа запрашивает ввод четырех целых чисел
2. Выводит заголовок с указанием проверяемого делителя
3. Последовательно проверяет каждое число (A, B, C) на делимость на N
4. Если остаток от деления равен 0, выводит соответствующее число
5. Используется краткая форма условного оператора без else

Пример работы программы

Входные данные: 15 20 25 5

Вывод программы:

Число 5 - делитель чисел:
15
20
25