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
Требуемых чисел нет
Цена 1-го билета Количество билетов Стоимость
Детский ? 10 шт. 500 грн.
Взрослый ? на 30 грн. > 4 шт. ?
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1) 500 : 10 = 50 (грн.) - цена детского билета;
2) 50 + 30 = 80 (грн.) - цена взрослого билета;
3) 80 · 4 = 320 (грн.) - стоимость экскурсии для 4 взролых.
Выражение: (500 : 10 + 30) · 4 = 320.
Відповідь: 320 грн. - вартість екскурсії для 4 дорослих.