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

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

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

M := 3;
N := 15;

получим

9
27

var
  n,j,m,i:integer;
begin
  m:=2;
  n:=2;
  while (m>=0) and (n>=0) do
  begin
    writeln('vvedite chisla N i M: ');
    readln(m, n);
    if (m>=0) and (n>=0) then
    begin
      if ((m mod 2)=0) then
      begin
        writeln();
        writeln('reshenie:');
        j:=m;
        while (j mod 2)=0 do
        begin
        writeln(j div 2);
        j:=j div 2
        end;
      end
      else
        if m>n then
        begin
          writeln();
          writeln('reshenie:');
          writeln(m);
        end
        else
        begin
          writeln();
          writeln('reshenie:');
          while m<n do
          begin
            writeln(m*3);
            m:=m*3;
          end;
        end;
    end;
  writeln(); writeln();
  end;
  writeln('chisla otricatelnie');
  writeln('konec');