Задача 12 урок 13.1
Primary tabs
Задача 12 урок 13.1
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:
6 3
А для 8:
4 2 1
var a: integer; begin writeln('Введите целое четное число'); readln(a); if(a mod 2 <> 0) then writeln('Error') else begin while (a mod 2 = 0) do begin a := a div 2; writeln(a); end; end; readln(); end.
- Log in to post comments
- 894 reads