Даны натуральные числа 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.
вроде так
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.
вроде так