Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
64*512=32768 точек
32*1024*8=262144 бит
262144/32768=8 - это глубина цвета
а количество цветов равно 2^ 8 =256
значит правильный ответ 256.
<span> Способность информации быть легко воспринимаемой зрительно?это-
</span>Наглядность
Для простоты, сначала рассчитаем объем файла в битах.
512000*16 = 8192000 - бит.
Далее, в одном байте - 8 бит.
А в одном килобайте - 1024 байт.
Следовательно, в одном килобайте - 8*1024 = 8192 бит.
Значит, объем файла:
8192000/8192 = 1000 килобайт.