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

Question

Информатика

Фотинья

13 октября, 22:31

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

+3

Ответы (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.

вроде так