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

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

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

M := 3;
N := 15;

Получим:

9
27

Решение:

program u13z13;
var m,n: integer;
begin
  write('m = ');
  readln(m);
  write('n = ');
  readln(n);
  if (m mod 2) = 0 then
    while (m mod 2 < 1) do
    begin
      m:=m div 2;
      writeln(m,' ');
    end
  else
  begin
    while (m < n) do
    begin
      m:=m*3;
      write(m,' ');
    end;
  end;
  writeln('Poka');
  readln();
end.

Консоль:

m = 3
n = 15
9 27 Poka