Var i: byte;
begin
randomize;
for i := 1 to 10 do
writeln(random(100)+50);
end.
1000101₂+1111010₂+110111₂=11110<span>110</span>₂
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandomReal(ReadInteger('n='), -99, 99)
.Select(t -> Round(t, 2)).ToArray;
a.Println;
a.Where((v, i)-> i.IsEven).Aggregate(1.0, (p, q)-> p * q).Println;
a.Sort;
a.Println
end.
1) Пятеричная система счисления - 5 пальцев на руке
2) Десятичная система счисления - 10 пальцев на двух руках
3) Двенадцатеричная система счисления:
- на каждом пальце у человека три части - фаланги. Для счета использовали только четыре пальца, значит 12 частей. Исключение составляет только большой палец - у него одна косточка, две части и его использовали для фиксирования пальцев при расчетах
- время, которое влияет на жизнь человека ( количество часов в сутках, количество месяцев было определено еще в древнем мире)
4) Двадцатеричная система счисления:
- количество пальцев у человека на руках и ногах
или
- количество косточек на двух руках пальцев - на каждом пальце у человека 2 косточки для сгиба пальца, т.е. на одной руке 10 косточек - большой палец сгиб у основания + 1 косточка фаланг