Задача 12 Урок 13
Primary tabs
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:
6 3А для 8:
3 4 2 1
var a: integer; begin writeln('Vvedite chislo'); 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!'); end.
КОНСОЛЬ
Vvedite chislo 8 4 2 1
- Log in to post comments
- 955 reads