UV Sphere - глобус, Ico Sphere -сгенерированный треугольник, Cylinder - цилиндр, Cone - конус, Grid - плоскость, Monkey - "обезьяна" (Да , да . Именно обезьяна)
Begin
for i:=1 to 10 do begin
srzn:=m[i];
end;
srzn:=srzn/100;
end.
1. Находим количество бит информации, приходящихся на 1 символ по формуле N=2^i, 64=2^i, ⇒ i=6.
2. Подсчитываем количество символов в сообщении, оно равно 24.
3. Количество символов умножаем на количество бит, приходящихся на 1 символ: 24*6=144 бит /8 = 18 байт
// PascalABC.NET 3.3
begin
var z:=ArrRandom(10,-50,50); z.Println;
var r:=z.Where(x->x>0).ToArray+z.Where(x->x<0).ToArray;
r.Println;
end.
Пример:
-46 42 -26 -23 8 50 -9 46 -50 0
42 8 50 46 -46 -26 -23 -9 -50
1) 52*60=3000 (кб) в минуту
2) 3000*4= 12000 (кб) всего