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.
Uses drawman;beginfield(23,5);topoint(1,4);pendown;topoint(1,2);topoint(4,2);topoint(4,4);topoint(1,4);penup;topoint(3,3);pendown;topoint(3,1);topoint(6,1);topoint(6,3);topoint(3,3);penup;topoint(5,4);pendown;topoint(5,2);topoint(8,2);topoint(8,4);topoint(5,4);penup;topoint(7,3);pendown;topoint(7,1);topoint(10,1);topoint(10,3);topoint(7,3);penup;topoint(9,4);pendown;topoint(9,2);topoint(12,2);topoint(12,4);topoint(9,4);penup;topoint(11,3);pendown;topoint(11,1);topoint(14,1);topoint(14,3);topoint(11,3);penup;topoint(13,4);pendown;topoint(13,2);topoint(16,2);topoint(16,4);topoint(13,4);penup;topoint(15,3);pendown;topoint(15,1);topoint(18,1);topoint(18,3);topoint(15,3);penup;topoint(17,4);pendown;topoint(17,2);topoint(20,2);topoint(20,4);topoint(17,4);penup;topoint(19,3);pendown;topoint(19,1);topoint(22,1);topoint(22,3);topoint(19,3);penup;end.
Формула объема информации
т.е. нам неизвестно количество символов в алфавите, а значит мы не можем найти информационный вес одного символа. Можно заменить на мощность российского алфавита, только возьмем не 33 буквы, а 32, т.е. 32 это 2 в 5 степени. Вес одного символа = 5 бит. Тогда объем информации в книге =
бит. При переводе в байты=
байт
