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

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

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

6
3

А для 8:

4
2
1

var
  i,j:integer;
begin
  i:=2;
  while (i mod 2) =0 do
  begin
    writeln('vvedite chetnoe chislo: ');
    readln(i);
    writeln();
    if (i mod 2)=0 then
    begin
      j:=i;
      while (j mod 2)=0 do
      begin
      writeln(j div 2);
      j:=j div 2
      end;
    end;
  end;
  writeln('chislo nechetnoe');
  writeln('konec');
  readln();
end. 

vvedite chetnoe chislo:
512

256
128
64
32
16
8
4
2
1