Ответ в картинке, разбирайтесь.
Var n, s, a, p, v:integer;
begin
write('N = '); readln(n);
s:=n div (3*4*4);
a:=(n mod (3*4*4)) div (4*4);
p:=(n mod (4*4)) div 4;
v:=n mod 4;
writeln('s = ',s,' a = ',a,' p = ',p,' v = ',v);
end.
Пример:
N = 2061
s = 42 a = 2 p = 3 v = 1
Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.
16 цветов (градаций серого) кодируются 4 битами, т.к. 16=2^4. Значит один пиксель (точка) весит 4 бита. Всего точек 100*100=10000. Значит информационный объём всего файла будет 10000*4=40000 бит. 40000/8= 5000 байт. 5000/1024~=4,88 Кбайт