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

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

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

6
3

А для 8:

4
2
1

program project1;
var numb,i:integer;

begin
  write('Vvedite chislo: '); readln(numb);
    if(numb mod 2=0)then
      while(numb mod 2=1)do
        begin
          numb:=numb div 2;
          write(numb, ' ') ;
        end
    else
      write('ERROR!');
  readln();
end.