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

Question

Информатика

Варвар

20 апреля, 01:15

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

+1

Ответы (1)

Знаете ответ?

Лонгин · 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.

вроде так