tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу для решения
Напишите программу для решения следующей : даны натуральные числа m, n. получить все кратные им числа, меньшие m*n. сделать в pascal
Semen200000000
1 13.06.2019 03:20
24
Ответы
Franni
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
дженни5
19.11.2020 12:26
Мощность алфавита равна 128. Сколько Кбайт памяти потребуется, для сохранения 132 страниц текста, содержащего в среднем по 17 строк и 40 символов в каждой строке?...
babikahenjudzao
28.04.2019 17:31
После выполнения команды присваивания x: =x+y значение переменной x равно 10, а значение переменной y равно 26. чему были равны значения переменных x и y до выполнения указанной...
tach11
28.04.2019 17:19
ответить на тесты, ! 1.)запишите в десятичной системе счисления целое число если дан его дополнительный код а)0111100111001110 б) 100110000010011 варианты ответов: 14131211109876543210...
FRAIS11
09.06.2019 11:20
Дана матрица a(3,4).найти количество отрицательных элементов и сумму отрицательных элементов....
Валера505
09.06.2019 11:20
Можно ли отнести технологию mmx в микропроцессорах pentium к информационным технологиям? 1) да 2) нет 3) частично...
CatTv2006
09.06.2019 11:20
Файл-это? 1)однородный по смыслу блок данных,хранящийся во внешней памяти и имеющий имя 2)объект характерезующий именем,значение и типом 3)совокупность индексированных переменных...
uhudongoair
09.11.2020 22:48
Сделать вид мантисы и экспоненты чисел:-9,7 и 0.00065 ...
kuzmin06
09.11.2020 22:48
Компания Bermuda Paint специализируется на производстве технических лаков. Представленная ниже таблица содержит информацию о ценах продажи и соответствующих издержках производства...
TS1311
30.08.2019 12:50
Повтори 3 раза сместиться на -11,9, сместиться на 3,3 , сместиться на 6,2 какую одну команду нужно добавить к этому алгоритму, чтобы чертежник окзался в той же точке,с которой...
korola
03.09.2019 00:10
Смешали два р-ра одинаковой соли, концентрация первого была 18%,концитрация второго была 10% мааса первого была 100г ,масса второго 320г кокова конциорция получившего р-ра? на...
Популярные вопросы
Типу біоритм людини який проявляється у вигляді чергування сну і неспання А)...
2
1) Потрібно навести приклади країн Америки, що належать до різних форм державного...
2
нужно написать сочинение приготовление окрошки на английском с переводом нужно...
1
Определите значение переменной a : b = 2 c = 3 a = 4**b -(c*6 + 2)/5*2...
3
Как найти например 1% от числа 76?...
3
Реши примеры 73,85⋅100= 98,91⋅0,1=...
3
Знайдіть медіану вибірки 1 7 5 7 3 7 1 8 3 А)1 Б)7 В)5 Г)3...
2
Густые месячные в 13 лет нормально ли это?...
1
Қаратпа сөздер арқылы диалог мәтін құрасытру....
2
Рзаберите Морфологический разбор имени прилаг Девушка очень похожа на свою...
2
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.