Даны два натуральных числа n и m. если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число. при решении этой нельзя пользоваться условной инструкцией if и циклами. входные данные вводятся два натуральных числа n и m. выходные данные выведите ответ на . примеры входные данные 2 8 выходные данные 1 входные данные 8 2 выходные данные 1

mvamz mvamz    1   31.07.2019 18:00    41

Ответы
анарка3 анарка3  28.09.2020 19:15
// 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика