А.1. Укажите наименьшее из следующих чисел:

                Цена 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 дорослих.

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

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