Question

Помогите! Надо решить задачу в паскале
На вход программе подаются два целых числа m и n, по модулю не превосходящие 10 в 6 степени. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - любое другое число

Answer 1

// PascalABC.NET 3.4, сборка 1766 от 25.08.2018

// Внимание! Если программа не работает, обновите версию!

begin

var (m, n) := ReadInteger2('Введите два целых числа:');

if (n mod m = 0) or (m mod n = 0) then Println(1)

else Println(0)

end.