Урок 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('Vvedite chislo: '); readln(m);
  write('Vvedite chislo ogranichitel N: '); readln(n);
    if(m mod 2=0)then
      while(m mod 2=0)do
        begin
          m:=m div 2;
          write(m, ' ');
        end
    else
       repeat
         m:=m*3;
         write(m, ' ');
       until(m>n);
  readln();
end.