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

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

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

Решение:

program Project1;
var M, N : integer;

begin
  write('Введите целое число : ');
  readln(M);
  write('Введите целое число : ');
  readln(N);
  if (M mod 2 = 0) then
    while (M mod 2 < 1) do
    begin
      M := M div 2;
      writeln(M);
    end
  else
    while (M < N) do
    begin
      M := M * 3;
      writeln(M);
    end;
  readln();
end.