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 Требуемых чисел нет
Сообщение это совокупность знаков, отображающих ту или иную информацию. Передача сообщений (а, следовательно, и информации) на расстояние осуществляется с какого-либо материального носителя, например, бумаги или магнитной ленты или физического процесса, например, звуковых или электромагнитных волн, тока и т.д. Информация — сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые воспринимают информационные системы (живые организмы, управляющие машины и др.) в процессе жизнедеятельности и работы.
1 Мбит = 0.125 Мбайт => 12 Мбит = 12 * 0.125 = 1.5 Мбайт/c
720 / 1.5 = 480 c = 8 мин