Ввести с клавиатуры 2 целых числа: m и n. Если m делится на n или n делится на m, то вывести 1, в противном случае — любое другое число. Напишите программу в Паскаль.

Ввести с клавиатуры 2 целых числа: m и n. Если m делится на n или n делится на m, то вывести 1, в противном случае — любое другое число. Напишите программу в Паскаль.
Гость
Ответ(ы) на вопрос:
Гость
var m, n: integer; begin readln(m, n); if (m mod n = 0) or (n mod m = 0) then writeln(1) else begin randomize; writeln(random(50)); end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы