Ответ:
5.17 бит, 1.17 бит.
Объяснение:
а) в колоде одна дама пик, поэтому шанс ее достать равен 1 из 36.
По формуле Хартли получаем ㏒₂36 бит. Или, примерно, 5.17 бит.
б) Старше десятки в колоде из 36 карт будут валет, дама, король и туз. 4 карты одной масти. Мастей 4, поэтому всего таких карт 4×4=16. Шанс достать такую карту равен 16 из 36 или 4 из 9. Снова по формуле Хартли
получаем ㏒₂(9/4) бит. Или, примерно, 1.17 бит.
Var a,b,c:integer;;
begin
writeln('введите три числа');
readln(a,b,c);
writeln('сумма первого и третьего числа 'a+c);
writeln('произведение первого и второго числа 'a*b);
end.
Var n,m:interer;
Begin
write('Введите день') ; Readln(d);
write('Введите месяц'); Readln(m);
if (m = 2) and (d=28) then <span> writeln('День - 1',' Месяц - 3');</span><span> if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then</span><span> if (d>1) and (d<31) then begin</span><span> d:=d+1;</span><span> writeln('День -',d,'Месяц- ',m); end</span><span> else if d=31 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;</span><span> if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they</span><span> if d<30 then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end</span><span> else d=30 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;
</span><span>readln;
end.
НЕДОРАБОТАНА</span>