Синоптики подсчитали, что в течении 100 лет 10 марта было 34 дождливых дня, снег выпал 28 раз и 38 дней было без осадков. определить количество информации в сообщениях, что 10 марта текущего года: будет снег будет дождь осадков не будет

Количество информации можно определить по известной формуле Хартли, но некоторым её бывает поначалу сложно запомнить. Поэтому можно пользоваться следующим методом: находим логарифм по основанию 2 отношения общего количества возможностей к интересующему. У нас общее количество равно 101 (по числу лет плюс текущий год).
Тогда информация о снеге будет нести ㏒₂(101/29) ≈ 1.8 бит (мы берем 29, потому что 28 раз снег шел за 100 лет и еще один раз в текущий, 101й год).
Аналогично, по дождю получаем ㏒₂(101/35) ≈ 1.53 бит и по отсутствию осадков ㏒₂(101/39) ≈ 1.37 бит.

Возможно, что текущий год учитывать в задаче не требуется, и тогда получим:
- будет снег: ㏒₂(100/28) ≈ 1.84 бит
- будет дождь ㏒₂(100/34) ≈ 1.56 бит
- осадков не будет ㏒₂(100/38) ≈ 1.40 бит

Более изящное решение :)

Проблема в строке c:= (b*b*b);
Ты ищешь сумму кубов, а для 4-значных чисел нужно искать сумму 4-х степеней. Нужно проверять число а: если от 100 до 999, то выполняем c:= (b*b*b); а если от 1000 до 9999, то выполняем c:= (b*b*b*b); 

Код ниже работает и выдаёт результат:
число Армстронга ==> 153
число Армстронга ==> 370
число Армстронга ==> 371
число Армстронга ==> 407
число Армстронга ==> 1634
число Армстронга ==> 8208
число Армстронга ==> 9474


var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 <> 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if a<1000 then c:= (b*b*b)
      else c:= (b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число Армстронга ==> ', a);
end;
end.

1)Монитор,(на счет магнитофона не уверен, сам по себе именно магнитофон никак не является устройством ПК, но если подразумевают пол этим словом динамик ПК, то подходит)

2)Получение

3)Электрический ток

4)Анатомический муляж

5)102 бита

6)48

7)из перечисленных ниже нет верного ответа. 568 в десятичной = 1 000 111 000 в двоичной.

8)АВИБА

9)Представленные ответы неправильны, так как не являются двоичным кодом(присутствуют двойки)+не указано к какой системе счисления принадлежит y (если x - очевидно 16-ти ричная, то y может быть как 16 так и 10

10) И снова нет верного ответа из предложенных, т.к. получится D8

11)800 бит

12) (Ячейки excel где?)

13) Аналогично 12

14)тоже

15)27

16)User-name

17)c*.c*

18)145.92.128.0

19)Верного ответа нет. Правильно: 22

20) 5

Объяснение: