Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число.
Входные данные
Вводятся два числа.
Выходные данные
Выведите ответ на задачу. (Примеры : входные данные - 2,8. выходные - 1).
P.S. Решить надо в Паскаль АБЦ!

Ответ оставил Гость

// PascalABC.Net 3.0, сборка 1052
var
  m, n: longint;

begin
  Read(m, n);
  if (m = 0) and (n <> 0) or (n = 0) and (m <> 0) then Writeln(1)
  else
    if (m = 0) and (n = 0) then Writeln(0)
    else
      if (m div n = 0) or (n div m = 0) then Writeln(1)
      else Writeln(0)
end.

Тестовое решение:
2 8
1