Даны два натуральных числа n и m. если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число. при решении этой нельзя пользоваться условной инструкцией if и циклами. входные данные вводятся два натуральных числа n и m. выходные данные выведите ответ на . примеры входные данные 2 8 выходные данные 1 входные данные 8 2 выходные данные 1
begin
var m,n:integer;
Write('Введите два натуральных числа через пробел: ');
Read(n,m);
Writeln(Ord((n mod m = 0) or (m mod n = 0)));
end.