36

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

13 апреля 2023

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

категория: информатика

84

var m,n,l: integer; Beginwriteln ('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. Вроде так

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

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...