Всё просто: 1) Ира варила варенье из крыжовника, значит ставим + ей в крыжовнике. 2) Ира и Оля варили варенье из разных ягод, зная что Ира делала из крыжовника, значит Оля не могла делать варенье из крыжовника, а из смородины могла. Ставим + Оле в смородине, а в крыжовнике -. 3) Таня и Ира варили варенье из разных ягод, тоже самое как и во 2 примере. Ставим + Тане в смородине, а в крыжовнике -. 4) Остаётся Юля, две девочки варили из смородины две из крыжовника, смело ставим + Юле в крыжовнике, а в смородине -.
Количество информации можно определить по известной формуле Хартли, но некоторым её бывает поначалу сложно запомнить. Поэтому можно пользоваться следующим методом: находим логарифм по основанию 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 бит
program raf105;
const
n = 10; //Размер массива
var
a:array[1..n] of integer;
i,pro: integer;
begin
pro:= 1;
writeln('Вводите ',n,' чисел по очереди');
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 2 = 0) or (a[i] mod 5 = 0)
then pro:= pro*a[i];
end;
writeln('Произведение чисел кратных двум или пяти: ',pro);
end.
PascalABC 3.4.2