Даны натуральные числа m, n. Получить все кратные им числа, меньшие m*n. сделать на паскале )

Даны натуральные числа m, n. Получить все кратные им числа, меньшие m*n. сделать на паскале )
Гость
Ответ(ы) на вопрос:
Гость
var m,n,l:integer; Begin writeln('m,n'); readln(m,n); if l mod n=0 and l mod m=0 and l<=(m*n) then  write (l); readln(l); end.     вроде так
Не нашли ответ?
Ответить на вопрос
Похожие вопросы