Определите является ли число А делителем числа В.напишите в виде паскаль авс

Чтобы проверить, является ли число A делителем числа B, достаточно убедиться, что остаток от деления B на A равен нулю (оператор mod). Важно отдельно обработать случай A = 0: нулём делить нельзя, значит A не может быть делителем.

Ниже рабочее решение для PascalABC.NET (подходит и для стандартного Паскаля):

pascal
Копировать код
begin
  // Ввод двух целых чисел: A и B
  var A, B: int64;
  readln(A, B);
  // Проверка делимости
  if A = 0 then
    writeln('NO')          // ноль не является делителем ни для какого B
  else if B mod A = 0 then
    writeln('YES')         // A делит B
  else
    writeln('NO');         // A не делит B
end.

Пояснения:

• Используется тип int64, чтобы корректно работать с большими целыми и отрицательными числами.

• Условие делимости корректно и для отрицательных чисел: если B mod A = 0, значит существует целое k такое, что B = A * k.

• Формат ввода: в одной строке через пробел (или в двух строках) вводятся A и B.

• Вывод: YES, если A — делитель B, иначе NO.

Пример:

• Ввод: 5 20 → вывод: YES

• Ввод: 7 20 → вывод: NO

• Ввод: 0 10 → вывод: NO