Заданы два положительных числа х и у .Определите верно ли что одно из них делиться

Заданы два положительных числа х и у .Определите верно ли что одно из них делитьсяна другое без остатка или нет .Выведите на экран соответствующее сообщение.Помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гость
Var x,y:integer;beginread(x,y);if x mod y = 0 then writeln('Без остатка')else writeln('С остатком');end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы