<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
1-16 = 2^4 т.е. 4 бит на символ
2-составить таблицу двоичного кода
какого именно?
3-найти информационный обьем двоичного кода
а-111000 - 6 бит
б-1010 - 4 бита
в-101- 3 бита
г-1010101111 - 10 бит
4-Перевести обьем из одной единице измерения в другую
а 70 мб-бит = 70*1024*1024*8 бит
450 мб-бит = 450*1024*1024*8 бит
2гб-байт = 2*1024*1024*1024 байт
1.8 гб-байт = 1,8*1024*1024*1024 байт
5-Минимальная мощность алфавита - 2 символа наверное
6-Минимальный информационный обьем 1 символа - 1 бит
Всего в изображении
45 * 20 = 900 точек. Если в палитре
265 цветов, то на хранения одной точки понадобится
бит (
1 байт). Следовательно, информационный объём изображения равен
900 * 8 = 7200 бит или же
~7.03 байт.
Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.