Program wtf;
var a,b,c,S:integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
S:=a+b+c;
writeln('Сумма цифр= ',S);
end.
Количество информации вычисляется по формуле I = log(2)1/p,
где p - вероятность наступления некоторого события.
Для зайца: p = 4/16 = 1/4; I = log(2)[1 / 1/4] = log(2)4 = 2 бита
Для медведя: p = 2/16 = 1/8; I = log(2)[1 / 1/8] = log(2)8 = 3 бита
По формуле I=количество каналов*частоту дискретизации*глубина кодирования*время в секундах
Подставляем и делим все это на 2 в 23 степени (перевод битов в мегабайты)
I=(1*48000*16*120)/2^23 это примерно равно 11 мегабайтам.
Ответ: 10000+3000+500+80+3
Надеюсь, что правильно
Program n1;
var a,sum: integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=4) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.