Question

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

Answer 1

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.

 

 

вроде так