Ну, раз считают "половинками", то и система будет "половинчатая")))
Значит, основание системы равно 1/2 или 0,5
Хотя, вряд ли. Надо подумать.
Фактически, должно выполняться равенство
где х - искомое основание системы
Но тут мы пользуемся алфавитом десятичной системы, а у новой системы должен быть свой алфавит. Противоречие какое-то.
В общем, я запутался((((
Алг Число
нач
цел А
вывод "Введите целое число", нс
ввод А
если mod(А,2) = 0 то
вывод "Число четное"
иначе
вывод "Число нечетное"
все
кон
По вертикали:
1. Информация
По горизонтали:
1. Редактирование
2. Фрагмент
<span>3. Шрифт </span>
<span>4. Форматирование </span>
<span>5. Процессор</span>
<span>6. Документ </span>
<span>8. Центрирвание </span>
<span>9. Копирование</span>
Program x2;
var n:longint;
begin
Write('Введите n, n = ');
Readln(n);
While n mod 2 = 0 do
n:= n div 2;
If n=1 then Write('YES')
else write('NO');
<span>end.</span>