При использовании 2 цветов для хранения одной точки изображения требуется log(2)2 = 1 бит.
Память для всего изображения = 800*600*1 бит = 800*600/8 байт = 60000 байт
Uses graphabc;
var
i, c: integer;
ar: array[1..5]of integer;
begin
for i := 1 to 5 do
read(ar[i]);
window.IsFixedSize := true;
window.Init(0, 0, 800, 800, clDarkGray);
window.CenterOnScreen;
SetFontSize(32);
for i := 1 to 5 do c := c + ar[i].ToString.Length;
for i := 1 to 7 do writeln;
write(' ':33 - c);
for i := 1 to 5 do
begin
if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
begin
SetFontColor(clred);
write(ar[i]);
end
else if(ar[i] mod 10 = 0) then
begin
SetFontColor(clblue);
write(ar[i]);
end
else if(ar[i] mod 2 <> 0) then
begin
SetFontColor(clyellow);
write(ar[i]);
end
end;
end.
Просто идёшь по алфавиту и всё.
ответ: l, e
I = 64*64*16*256 - в битах
I = (64*64*16*256)/8 - в байтах
I = (64*64*16*256)/(8*1024) - в Кбайтах
I = (64*64*16*256)/(8*1024*1024) = 2 - в Мбайтах.
Это фильтр др вдовы так как ооак