По формуле 
или 
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес
I = K * i (K - кол-во пикселей, i - Глубина цвета)
Отношение объемов информации 
раз
Var a, b: word;
k: byte;
begin
write ('Введите двузначное число: ');
readln (a);
b := a;
k := 0;
while b <> 0 do begin
a := a mod 10;
k := k + 1;
b := b div 10
end;
if (k <> 2) then
writeln ('Вводите только двузначные числа')
end.
Const a:array[1..10,1..5] of integer = (
(1,2,3,4,5),
(2,2,3,4,5),
(3,2,3,4,5),
(4,2,3,4,5),
(5,2,3,4,5),
(6,2,3,4,5),
(7,2,3,4,5),
(8,2,3,4,5),
(9,2,3,4,5),
(10,2,3,4,5) );
var
i,j:integer;
begin
writeln;
for i := 1 to 10 do
begin
for j:= 1 to 5 do
write(a[i,j],' ');
writeln;
end;
end.
Это полное задание?
обычно в информатике спрашивается какое слово будет на каком-то там месте и т.д.
