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

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

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

Решение:

program Project1;
var n : integer;

begin
  write('Введите целое число: ');
  readln(n);
  if (n mod 2 <> 0) then
    writeln('Ошибка')
  else
    while (n mod 2 < 1) do
    begin
      n := n div 2;
      writeln(n);
    end;
  readln();
end.