Урок 13.1 Задание 13

Задание 13 Урок 13.1

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

Консоль:

6
3

Консоль:
А для 8:

4
2
1

var i:integer;
begin
  i:=0;
  while (i mod 2) = 0 do
  begin
    writeln('vvedite  chislo: ');
    readln(i);
    if (i mod 2)=0 then
      repeat
        writeln (i div 2);
        i:=i div 2
      until (i mod 2 = 1)
    else
      writeln('chislo nechetnoe')
  end;
  readln();
end.

Konsol

vvedite  chislo: 
8
4
2
1