урок 13.1 задача 13

урок 13.1

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

:

var m,n: integer;
begin
  writeln('ведите число M');
  readln(m);
  writeln('ведите число  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;
      writeln('M = ',m);
      end;
  end;
readln();
end.