Question

Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число.

При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.

Входные данные
Вводятся два натуральных числа n и m.

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
2
8
выходные данные
1
входные данные
8
2
выходные данные
1

Answer 1

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var m,n:integer;
  Write('Введите два натуральных числа через пробел: ');
  Read(n,m);
  Writeln(Ord((n mod m = 0) or (m mod n = 0)));
end.