Задача 12 Урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:
6
3
var a : integer; begin writeln ('введите четное целое число'); readln (a); if ((a mod 2)=0) then while((a mod 2)<1) do begin a:=a div 2; writeln (a); end else writeln ('я же просил ввести четное число'); end.
- Log in to post comments
- 702 reads