Задача 13 Урок 13

Урок 13.1

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:

M := 3;
N := 15;

Получим:

9
27

var m, n: integer;

begin
  writeln('Vvedite chislo M');
  readln(m);
  writeln('Vvedite chislo N');
  readln(n);
    if ((m mod 2) = 0) then
    begin
      while ((m mod 2) = 0) do
      begin
        m := m div 2;
        writeln(m);
      end;
    end
    else
      while (m <= n) do
      begin
        m := m * 3;
        writeln(m);
      end;
end.

КОНСОЛЬ

Vvedite chislo M
3
Vvedite chislo N
15
9
27