Задача 12 урок 13.1
Primary tabs
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат.
var i: integer; begin readln(i); if (i mod 2=1) then writeln('ошибка') else repeat i:=i div 2; writeln(i); until(i mod 2=1); end.
- Log in to post comments
- 650 reads