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

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

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

M := 3;
N := 15;

Получим:

9
27

program  u131z13;
var m, c, n, d: integer;


begin

writeln (' vvedite cheloe chislo');
readln(m, n);
  if (m mod 2)=1 then
  begin
   while (d < n) do
   begin

     d:=m*3;
     writeln(d);
     m:=d;

   end;
  end else
  while  ((c mod 2)<>1) do
  begin

   c:= m div 2;
   writeln(c);
   m:=c;

   end;

  readln();

end.