Урок 13.1 Задача 12
Primary tabs
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:
6 3А для 8:
4 2 1
program project1; var numb,i:integer; begin write('Vvedite chislo: '); readln(numb); if(numb mod 2=0)then while(numb mod 2=1)do begin numb:=numb div 2; write(numb, ' ') ; end else write('ERROR!'); readln(); end.
- Log in to post comments
- 1064 reads
vedro-compota
Sun, 10/24/2021 - 12:29
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)