===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
Ответ:
program Example;
var
a, b: Double;
begin
Write ('Введите длину и ширину участка: ');
ReadLn (a, b);
WriteLn ('Площадь = ', (a + b) * 2 :10 :2);
ReadLn;
end.
1 задание.
Дано: N=32
Найти: I -?
Решение:
Событие равновероятное => I=log<span>₂N
I=log</span>₂32
Ответ: 5 бит
2 задание.
Дано: I=7 бит
Найти: N -?
Решение:
Событие равновероятное => I=log₂n
7=log₂n
n=128
N=128+10-1=137
Ответ: 137
3 задание.
Дано: I=5 бит
Найти: N - ?
Решение:
Событие равновероятное => I=log₂N
5=log₂N
N=32
Ответ: 32 шара
3F в шестнадцатеричной = 3×16+15=63 в десятичной