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

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

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

 6
3

А для 8:

 
4
2
1

var a : integer;

begin
  write('Enter an integer : ');
  readln(a);
  if (a mod 2 <> 0) then
    writeln('Error')
  else
    while (a mod 2 < 1) do
    begin
      a := a div 2;
      writeln(a);
    end;
  readln();
end.