For i 1 to 10 do
if a[i]=0 then
inc(k)
=====
for i 10 downto 1 do
write(a[i]:4:2)
Данный список является магазинным
1. 2 байта (каждый символ) * 64 (символа в строке) * 36 (строк на странице) * 14 (страниц в тексте) = 64512 байт = 63 килобайта, ответ 4
2. 8 бит = 1 байт,
1 байт (каждый символ) * 48 (символов в строке) * 36 (строк на странице) * 48 (страниц в тексте) = 82944 байт = 81 килобайт, ответ 3
Остальное аналогично. Не могу выгрузить больше одной фотки