набрать полное 9-л. ведро.перелить с него воду в 5-л. ведро.(в 9-л. ведре должно остаться 4 л) Вылить из 5-л. ведра его содержимое иналить туда всю воду из 9-л. ведра.набрать полное 9-л. ведро. перелить из него воды так, чтобы 5-л. ведро стало полным. (в 9-л. ведре должно остаться 8 л)вылить содержимое 5-л. ведра и наполнить его доверху содержимым 9-л. ,в котором после завершения операции одлжно остаться 3 л. А воду из 5-л. ведра можно вылить.
Количество информации вычисляется по формуле 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 бита
Program one;
var: a: real;
begin
Writeln ('Введите число');
readln (a);
If a<0 then else a:=a+1 else writeln (a)
end.
Вроде так
Заводишь переменную, куда будешь забивать сумму, затем в цикле N раз считываешь число, умножаешь его на себя и прибавляешь к сумме (не забудь обнулить переменную для суммы в начале)