Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nikita54wwe
05.04.2020 23:45 •
Информатика
Напишите программу для решения следующей : даны натуральные числа m, n. получить все кратные им числа, меньшие m*n. сделать в pascal
Показать ответ
Ответ:
sarinasergeeva
10.07.2020 11:14
Program pr1;
var i,m,n:integer;
begin
readln(m);
readln(n);
for i:=1 to m*n-1 do begin
if (i mod n = 0) and (i mod m = 0)
then
writeln(i)
end
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
andrey2085
23.11.2021 16:08
Укажи каждому описанию соответствующие устройство: вопрос: выбрать правильный ответ: для ввода картинок и текста. а - мышка часть системы обработки данных. б - аппаратура...
Рома555555
26.02.2022 01:58
Даны два числа А и В. Требуется выбрать большее из них, Используйте полное ветвление. Протестируйте схему с данными: А= 5; B = 13....
kirill600rr12
02.09.2020 01:44
Рассчитайте необходимый объём видеопамяти для графического режима: разрешение экрана 1024*768, качество цветопередачи 16 бит....
stefanikolaeva
12.09.2022 16:05
ПАМАГИТЕ СОР ИНФОРМАТИКА 7 КЛАСС ...
Katyakaran
07.02.2021 04:37
Задание №1 ( ) 1) Выберите информационные модели (Выберите несколько из 5 вариантов ответа): 1) Чертеж детали 2) Карта России 3) Таблица падежей 4) Глобус 5) Муляж апельсина...
Oksana321
19.03.2022 19:45
Для исполнителя Чертёжник в среде программирования КуМир составьте программу рисования слова БАОБАБ. Для изображения букв воспользуйтесь вс алгоритмами...
lizarodkina
08.02.2020 08:43
1.сергеев, желая добиться расположения к себе федоровой, заявил ей, что застрелит сначала ее, а потом себя, если она не согласиться зарегистрировать с ним брак. федорова,...
Aiauka11
08.02.2020 08:43
Шеңберден тыс а (●) мен авс және адк екі қиюшы жүргізілген ас=20см, ак=25см ав=дк дк-?...
kiscaki
08.02.2020 08:43
Какой объем водорода образуется при действии паров воды на 5 кг кокса, содержащего 96% углерода,если выход реакции составляет 75% от теоретически возможного? первую часть...
Памагиш
08.02.2020 08:43
Что написать в призентации про маршака с я...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,m,n:integer;
begin
readln(m);
readln(n);
for i:=1 to m*n-1 do begin
if (i mod n = 0) and (i mod m = 0)
then
writeln(i)
end
end.