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

Урок 13.1

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

6
3

А для 8:

3
4
2
1

var a: integer;

begin
  writeln('Vvedite chislo');
  readln(a);
    if ((a mod 2) = 0) then
    begin
      while ((a mod 2) = 0) do
      begin
        a := a div 2;
        writeln(a);
      end;
    end
    else
      writeln('Error!');
end.

КОНСОЛЬ

Vvedite chislo
8
4
2
1