3. Определить, является ли число G делителем числа Z или, наоборот, число Z делителем...

Question

3. Определить, является ли число G делителем числа Z или, наоборот, число Z делителем числа G. Ответом должно служить сообщение «Да, одно из чисел является делителем другого» или «Нет, ни одно из чисел не является делителем другого.

Answer 1

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (g,z):=ReadInteger2('Введите через пробел два натуральных числа');
  if (g mod z=0) or (z mod g=0) then
    Writeln('Да, одно из чисел является делителем другого')
  else Writeln('Нет, ни одно из чисел не является делителем другого')
end.