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

1

Ответы и объяснения

2013-04-13T20:16:32+04:00

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.

 

 

вроде так