Урок 13.1 Задание 14

Задание 14 Урок 13.1

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

Консоль:

9
27

var m,n:integer;
begin
  m:=0;
  while (m mod 2) = 0 do
  begin
    writeln('vvedite  chislo m: ');
    readln(m);
    writeln('vvedite  chislo n: ');
    readln(n);
    if (m mod 2)=0 then
      repeat
        writeln (m div 2);
        m:=m div 2
      until (m mod 2 = 1)
    else
      repeat
        writeln (m*3);
        m:=m *3
      until (m > n)
  end;
end.

Konsol

vvedite  chislo m: 
3
vvedite  chislo n: 
15
9
27