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

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

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

M := 3;
N := 15;

Получим:

9
27

program U13_1Z13;
var m, n: integer;
begin
  writeln('vvedite chislo m');
  readln(m);
  writeln('vvedite chislo  n');
  readln(n);
  if ((m mod 2)=0) then
    begin
      writeln('chislo m = ', m, ' - chetnoe');
      while ((m mod 2)=0) do
        begin
          writeln(m div 2);
          m:=m div 2;
        end;
    end
  else
      begin
        writeln('chislo m = ', m, ' - nechetnoe');
        writeln('M :=', m);
        writeln('N :=', n);
        while (m<=n) do
          begin
            m:=m*3;
            writeln(m);
          end;
      end;
  readln();
end.