Даны натуральные числа 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.
вроде так
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
