N=600
N=16*32=512
N=2^i=2^9=512
i=9 бит
I=n*i
I=600*9=5400 бит
Ответ: 5400
вроде так, хотя могла попутать
.................................
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var Bnk:=Arr(500,100,50,10);
var s:=ReadInteger('Сдача, руб:');
var Kol:=Arr(0,0,0,0);
for var i:=0 to 3 do begin
Kol[i]:=s div Bnk[i];
s:=s mod Bnk[i]
end;
if s<>0 then Writeln('Сдачу дать невозможно')
else begin
Writeln('Следует дать:');
for var i:=0 to 3 do
Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
end
end.
<u><em>Тестовое решение:</em></u>
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.
//PascalABC.NET 3.2 сборка 1318
Var
SeNotExist:set of char=['0','1','2','3','4','5','6','7','8','9'];
ArrNotExist:array of char;
count,i:integer;
Num:string;
begin
readln(Num);
for i:=1 to length(Num) do
SeNotExist-=[Num[i]];
foreach var x in SeNotExist do
begin
inc(count);
setlength(ArrNotExist,count);
ArrNotExist[count-1]:=x;
end;
sort(ArrNotExist);
writeln(count);
ArrNotExist.Print(' ');
end.
Пример ввода:
81233214554
Пример вывода:
4
0 6 7 9
Количество информации на 1 точку = log(2)16777216 = 24 бит = 3 байта
Для всего изображения:
1024*768*3 байт = 768*3 Кбайт = 768*3/1024 Мбайт = 2,25 Мбайт
