язык - qbasic желательно быстрее решить расчётную часть,

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

Рассмотрим выражение 4^750-4^10:
4^750-4^10 = 4^750 - 4^11 + 4^11 - 4^10 = 4^750 - 4^11 + 3 * 4^10 = 4^750 - 4^12 + 4^12 - 4^11 + 3*4^10 = 4^750 - 4^12 + 3*4^11 + 3*4^10 = ... = 4^750 - 4^750 + 3*4^749 + 3*4^748+...+3*4^10 = 3*4^749 + 3*4^748+...+3*4^10.
Таким образом, исходное число представили в виде суммы степеней, умноженных на коэффициенты при них, что позволяет перевести число в 4-ичную систему счисления.
4^1550+4^750-4^10 = 4^1550 + 0*4^1549 + ... + 0 * 4^750 + 3*4^749 + 3*4^748+...+3*4^10 + 0*4^9 + ... + 0*4^0.
Осталось посчитать количество коэффициентов, равных 0.
(1549 - 750 + 1) + (9 - 0 + 1) = 810.