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