Урок 13.1 Задача 13
Primary tabs
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:
6 3А для 8:
4 2 1
var i,j:integer; begin i:=2; while (i mod 2) =0 do begin writeln('vvedite chetnoe chislo: '); readln(i); writeln(); if (i mod 2)=0 then begin j:=i; while (j mod 2)=0 do begin writeln(j div 2); j:=j div 2 end; end; end; writeln('chislo nechetnoe'); writeln('konec'); readln(); end.
vvedite chetnoe chislo: 512 256 128 64 32 16 8 4 2 1
- Log in to post comments
- 286 reads