На кодирование каждого диода необходим 1 бит (2 состояния - 0/1)
В сегменте 64х32=2048 (диодов или бит).
8 сегментов кодируются 2048х8=16384 (бит) = 2 кБ.
При ежесекундном изменении состояния будет 3600 обновлений за 1 час.
Таким образом, на час необходимо 2х3600 = 7200 килобайт информации.
1 слово жарка или аркан. 2 слово тепло
<span>1.
«Цаты распускаются» и «ветер» - облака будут розовыми,
теплый дождь</span>
<span>2.
<span><span><span><span><span><span><span><span><span><span><span><span><span><span /></span></span></span></span></span></span></span></span></span></span></span><span /></span></span><span><span /></span>«Цаты не распускаются» и «ветра нет» - облака будут желтыми, теплый
дождь
</span><span>3.
«Цаты не
распускаются» и «ветер» - облака будут синими, холодный дождь</span>
1)
var
count, num: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) then count := count + 1;
read(num);
until (num = 0);
write(count);
end.
2)
var
totalCount, count, num: integer;
begin
totalCount := -1; count := 0; num := -1;
repeat
totalCount := totalCount + 1;
if (num mod 3 = 0) then count := count + 1;
read(num);
until (num = 0);
write((count * 100) / totalCount, '%');
end.
var s: string;
begin
readln(s);
writeln('кол-во символов: ',length(s));
if s[1]=s[length(s)] then
writeln('первая и последняя буквы слова совпадают')
else writeln('первая и последняя буквы слова не совпадают');
writeln('первый, третий и последний символы: ',s[1],' ',s[3],' ',s[length(s)]);
if length(s) mod 2=0 then write('кол-во символов четное')
else write('кол-во символов нечетное');
end.