после writeln() должно стоять ( ;)
и в конце не нужна readln
Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
<span>end.</span>
1. 8 цветов - 1 пиксель log2 8 = 3 бит.
640 * 480 = 307200 пикс.
307200 * 3 = 921600 бит.
512 цветов - 1 пиксель log2 512 = 9 бит
921600/9 = <u>102400 пикс.</u>
2. глубина цвета 24, значит 1 пиксель = 24 бит = 3 байт
640 * 480 = 307200 пикс.
307200 * 3 = 921600 байт. = 900 Кбайт
Если в одной из 16 книг, значит информация может оказаться в каждой книге с равной вероятностью.
16 книг - это 4 бита, т.к. 2^4 - 16
Ответ: 4 бит.