Объем видеопамяти равен 5 мб. разрешающая дисплея 1024*2048. какое максимальное количество цветов можно использовать?

Var
  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
Требуемых чисел нет

бро, я в 5 классе... но раз ты так хочешь..

Теория

div - это целочисленное деление. Это значит что при деление на числа, остаток отбрасывается.

Пример (10 div 3):

1. Если мы просто разделим 10 на 3, то мы получим 3.3333. При деление целочисленным делением (div-ом), дробная часть отбрасывается. И ответ будет просто 3.

Вот еще примеры:

   2 div 2 = 1   | (2 / 2 = 0)

   2 div 3 = 0  | (2 / 3 = 0.66)

   5 div 3 = 1   | (5 / 3 = 2)

   13 div 6 = 2 | (13 / 6 = 2.16)

Решение

Изначально s = 0, а i = 3

Цикл repeat-until означает что цикл будет совершаться, пока условие в until не будет выполнено.

Мы попадаем в цикл. Сначала выполняется s + 5, что будет равно 5, а после выполняется div с i: 5 div 3. Мы получаем ответ 1 и это же значение заносится в переменную s. От переменной i отнимается 1 и оно становится 2.

После итерации цикла, происходит проверка условия until. Так как 2 не меньше 1, цикл вновь запускается

Вторая итерация. s уже равна 1, значит: 1 + 5 div 2 -> 6 div 2 -> 3. s = 3. От i опят отнимается единица.

Опять завершаем цикл и проверяем условие 1 не меньше 1 (они равны), значит будет еще одна итерация.

Третья итерация. s = 3, значит 3 + 5 div 1 -> 8 div 1 -> 8. В s заносится 8. От i отнимаем 1 и i = 0

Так как 0 < 1, условие выполняется и мы выходим из цикла. Программа завершена. В s находится цифра 8, в i лежит 0