Запиши каждое число : 24, 48, 56, 42, 18, 45 в виде произведения двух однозначных чисел

6*4=24 6*8=48 7*8=56 6*7=42 2*9=18 9*5=45

3* 8 = 24 8 * 6 =  487 * 8 =  567 * 6 =  422 * 9 =  185 * 9 =  45

m, n, nok, t, i: longint;

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

Требуемых чисел нет

Вышла3 на край леса старая лисиха с маленьким лисенком. Учится бегать детеныш. Спотыкаются о кочки его длинные ноги. Ласково греет3 в редком лесу весеннее солнышко. Уже надулись на деревьях душистые клейкие почки. Лоси сломали березовую ветку, из нее сочится и капает сладкий сок. Синими кажутся в лесу весенние лужи. Золотистыми пуховками распустились кустики ивы. Хорошо пахнет в весенгем лесу! Задремала на теплом солнце лисиха, но чутко слышит она все звуки. Спокойно резвится лисенок. Не даст его в обиду чуткая и сильная мать.