Задание 12 Урок 13.1
Primary tabs
Задание 12 Урок 13.1
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат
var i : integer; label m1; begin m1 : write('Введите четное целое число и нажмите ENTER:'); readln(i); if ((i mod 2) = 1) then begin writeln('ОШИБКА!!! Вы вели нечётное число!!!'); goto m1; end else while ((i mod 2) = 0) do begin i := (i div 2); writeln(i); end; write('Программа завершена! Нажмите ENTER!'); readln(); end.
- Log in to post comments
- 931 reads