50 1)запишите код данной bmp-картинки (код цвета дан в bgr), учитывая перенос строки, в 16сс: ff0f99 2)переведите этот код в 2сс: 3)сколько бит информации он занимает? 4)сожмите данный код в rle: 5)сколько бит памяти он занимает? 6)сожмите исходную 16-ричную последовательность кодом хаффмана: 7)сколько бит памяти он занимает?
Const Size = 7;
Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;
Begin
Counter := 1;
while (Counter <= Size) do
begin
Write('Введите ', counter, ' ученика: ');
Readln(Ball[Counter]);
Counter := Counter + 1;
end;
Counter := 1;
Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5
else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4
else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3
else
Ocenka[Counter] := 2;
Counter := Counter + 1;
Until (Counter > Size);
Writeln();
for var i := 1 to Size do
Writeln('Оценка ', i, ' ученика: ', Ocenka[i]);
End.
Внимание! Если программа не работает, обновите версию!
begin
var q:=new Queue<integer>;
var n:=ReadInteger('Кол-во элементов (не менее 4):');
Randomize;
var k:integer;
for var i:=1 to n do begin
k:=Random(-20,40); Print(k);
q.Enqueue(k)
end;
Writeln; // очередь заполнена, выведены ее элементы
var (ko,s):=(-100,0);
for var i:=1 to n do begin
k:=q.Dequeue; q.Enqueue(k);
if k.IsOdd then ko:=k;
if i=3 then s:=k
end;
s+=ko;
q.Enqueue(s);
q.Println; // искомая сумма помещена в очередь
for var i:=1 to n do begin
k:=q.Dequeue;
if i<>4 then q.Enqueue(k)
end;
q.Println
end.