Def pseudo_list():
for i in range(N):
yield (i*9876+1024)%1000
N = 10**6 + 1
A = pseudo_list()
count = [0] * 1000
for x in A:
count[x] += 1
x = 0
sum_count = count[0]
while sum_count <= N//2:
x += 1
<span> sum_count += count[x] </span>
<span>print(x)
Ответ: 496</span>
Единичная система счисления Необходимость в записи чисел стала возникать у людей еще в древности после того, как они научились считать. Свидетельством этого являются археологические находки в местах стойбищ первобытных людей, которые относятся к периоду палеолита (10-11 тыс. лет до н.э.). Изначально количество предметов изображали, используя определенные знаки: черточки, насечки, кружочки, нанесенные на камни, дерево или глину, а также узлы на веревках. Рисунок 1. Ученые эту систему записи чисел называют единичной (унарной), поскольку число в ней образовано повторением одного знака, который символизирует единицу.
Информация взята с сайта биржи Автор24: https://spravochnick.ru/informatika/sistemy_schisleniya/nepozicionnye_sistemy_schisleniya/ .
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
program pascal;
var s, v, r:real;
begin
writeln('ВВедите радиус');
readln(r);
s:=4*3.14*r*r;
v:= 4/3*3.14*r*r;
Writeln('Площадь шара=',s,'Объем шара=',v);
end.
13*16^3+9*16^2+5*16+5=55637
55637/2, остаток 1,
27818/2, остаток 0,
13909/2, остаток 1,
6954/2, остаток 0,
3477/2, остаток 1,
1738/2, остаток 0,
869/2, остаток 1,
434/2, остаток 0,
217/2, остаток 1,
108/2, остаток 0,
54/2, остаток 0,
27/2, остаток 1,
13/2, остаток 1,
6/2, остаток 0,
3/2, остаток 1,
1/2, остаток 1.
Итого: 1101100101010101, 7 нулей.
