1. Вычисление объема текстовой информации.
Задача 1. Какова мощность алфавита, с которого записано сообще-ние, содержащее 2048 символов, если его объем составляет 1/512 часть одного
мегабайта?
Задача 2. В языке некоторого племени всего 16 различных букв. Все слова
состоят из 5 букв. Сколько компьютерной памяти потребуется для хранения
всех 8000 слов этого языка?
2. Вычисление объема графической информации.
Задача 3. Достаточно ли видеопамяти объемом 256 Кбайт для работы
монитора в режиме 640 х 480 и палитрой из 16 цветов.
Задача 4. Для хранения изображения размером 64x32 точек выделено 64 Кбайт
памяти. Определите, какое максимальное число цветов допустимо
использовать в этом случае.
Задача 5. 256-цветный рисунок содержит 120 байт информации. Из скольких
точек он состоит?
begin
readln (x);
h1 := x div 100000;
h2 := x mod 100000 div 10000;
h3 := x mod 10000 div 1000;
h4 := x mod 1000 div 100;
h5 := x mod 100 div 10;
h6 := x mod 10;
s1 := h1 + h2 + h3;
s2 := h4 + h5 + h6;
if (s1 = s2) then writeln('Счастливый')
else writeln('Несчастный:)');
readln;
end.
Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)