begin Write('Введите через пробел два целых положительных числа- '); Readln(m, n); {Сначала ищем НОК - наименьшее общее кратное} if m = n then begin nok := m; t := m * m end else begin t := m * n; repeat if m > n then m := m - n else n := n - m until m = n; nok := t div m end; {Теперь умножаем НОК на числа натурального ряда, пока не дойдем до величины t=m*n} if nok = t then Writeln('Требуемых чисел нет') else begin i := 1; while (nok * i < t) do begin Write(nok * i, ' '); i := i + 1 end end end.
Тестовое решение: Введите через пробел два целых положительных числа- 8 120 120 240 360 480 600 720 840
Введите через пробел два целых положительных числа- 35 620 4340 8680 13020 17360
Введите через пробел два целых положительных числа- 7 13 Требуемых чисел нет
в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.
....................................