<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=Range(1,10);
Writeln(s.Aggregate(1,(p,q)->p*q));
Writeln('S=',s.Where(k->k.IsEven).Sum,', П=',
s.Where(k->k.IsOdd).Aggregate(1,(p,q)->p*q));
Writeln('S2=',s.Select(k->k*k).Sum)
end.
<u>Результат</u>
3628800
S=30, П=945
S2=385
2,5 Мбит за 1/3 мин = 2,5 × 3 Мбит за мин = 7,5 Мбит/Мин
Бит-это единица измерения колличества информации в двоичной системе исчесления. Большая единица байт,1байт=8 бит
Общее количество кубиков - 24+8=32
Шанс достать красный кубик равен 24/32 = 3/4. Количество информации о том, что вытащен красный кубик будет равно ㏒₂(4/3) ≈ 0.415 бит
Шанс достать черный кубик равен 8/32 = 1/4. Количество информации о
том, что вытащен черный кубик будет равно ㏒₂(4) = 2 бит
Program asdas;
Uses crt;
var a,b:integer;
begin
writeln ('Введите стаж');
readln (a);
if a<=5
then b:=130
else if a>0
then b:=180;
end.