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