Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра за декаду ноября хранятся в массиве. массив данных о силе ветра за декаду ноября зададим в виде целочисленных констант: 7,7,6,5,4,4,3,5,4,3. определить, сколько дней дул южный ветер с силой, не превышающей 4 м/с. нужно решить в паскаль.

Const   n = 10; type   wind = record       c: char; //направление ветра (с,ю,в,з)       f: integer; //сила ветра   end; var   a: array[1..n] of wind;   i, nday: integer; begin   for i : = 1 to n do   begin       write(i, ' - день направление ветра (с,ю,в,з)');       readln(a[i].c);       write('сила ветра : ');       readln(a[i].f);       if (a[i].c = 'ю') and (a[i].f < = 4) then nday : = nday + 1;   end;   writeln(' дней когда дул южный ветер с силой, не превышающей 4 м/с : ',nday); end. тестовое решение: 1 - день направление ветра (с,ю,в,з)с сила ветра : 7 2 - день направление ветра (с,ю,в,з)с сила ветра : 7 3 - день направление ветра (с,ю,в,з)ю сила ветра : 6 4 - день направление ветра (с,ю,в,з)ю сила ветра : 5 5 - день направление ветра (с,ю,в,з)ю сила ветра : 4 6 - день направление ветра (с,ю,в,з)в сила ветра : 4 7 - день направление ветра (с,ю,в,з)ю сила ветра : 3 8 - день направление ветра (с,ю,в,з)в сила ветра : 5 9 - день направление ветра (с,ю,в,з)з сила ветра : 4 10 - день направление ветра (с,ю,в,з)ю сила ветра : 3 дней когда дул южный ветер с силой, не превышающей 4 м/с : 3

Воспользуемся формулой n=2^i возьмем за n=100 и найдем по формуле i целое число не получается, поэтому округляем в большую сторону и получаем i=7  бит. это мы нашли вес информации об одном измерении. таких измерений было сделано за день 8 раз, то есть 8*7=56  бит (вес информации об измерениях за весь день). измерения проходили 64 дня, тогда 56*64=3584 бит (вес информации об измерениях за все время). теперь просто переводим это в байты: 3584/8=448 байт.  и в кбайты: 448/1024=0,44 кбайт.