Vark,a:integer;begink:=0;While true do beginread(a);if a=0 then break;if (a mod 8=0) and (a mod 10=6) then k+=1;end;print(k)end.
1) На 1 пиксель при 8-цветной палитре требуется log(2)8=3 бита
На все изображение 600*350*3 бит = 600*350*3/(8*1024) Кбайт ≈ 77 Кбайт
2) На 1 пиксель: log(2) 16=4 бита
На 1 страницу: 640*400*4 бит = 640*400*4/(8*1024) Кбайт = 125 Кбайт
Количество страниц = 1250/125 = 10
3) 65*1024*8/(350*200)≈8 бит
Количество цветов = 2^8 = 512
В одном байте 8 бит, значит, 2048000 бит = 256000 байт
В одном Кбайте 1024 байт, значит 256000 байт = 250 Кбайт
Ваша схема, в общем, верна. Её можно чуть упростить, убрать проверку Р.