Решение:
Поскольку в бассейне всего 4 дорожки для плавания, значит, сообщение о каждой дорожке в отдельности содержит в себе 2 бита информации, так как 4 = 2^2. Поэтому сообщение тренера о том, что группа школьников будет плавать по 3-дорожке, содержит в себе 2 бита информации.
Ответ: из этого сообщения школьники получили 2 бита информации.
<u><em>Программа в PascalABC.Net:</em></u>
const
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string;
n,i,err:integer;
isdigit:boolean;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
i:=1;
isdigit:=True;
n:=Length(s);
repeat
isdigit:=isdigit and (s[i] in digits);
Inc(i)
until (not isdigit) or (i>n);
if isdigit then
begin Val(s,n,err); Writeln('Введено корректное число ',n) end
else Writeln('Число содержит нецифровой символ')
end.
<em><u>Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так:</u></em>
var
s:string;
n,err:integer;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
Val(s,n,err);
if err=0 then Writeln('Введено корректное число ',n)
else Writeln('Число содержит нецифровой символ')
end.
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.
Нарисуй 6 деревьев и у тебя получится ответ - самый низкий - клен, самая высокая - это ель!