Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
Могу ошибаиться с пониманием задачи, мой ответ: 78 или 12+11+10+9+8+7+6+5+4+3+2+1
1) 64 * 128 * (ln(128)/ln(2)) бит = 57344 бит / 8 / 1024 = 7 кбайт.
2) 32 * 1024 * (ln(128)/ln(2)) бит = 229376 бит / 8 / 1024 = 28 кбайт.
3) 128 * 256 = 32768 пикс; (24*1024*8) бит / 32768 пикс = 6 бит на пиксель; где 2^6 = 64 цветов макс. возможное.
4) 128 * 128 = 16384 пикс; (10*1024*8) бит / 16384 пикс = 5 бит на пиксель; где 2^5 = 32 цветов макс. возможное.
Я думаю что это изображения