var
s: <em>string</em>;
t: <em>integer</em>;
t1: <em>real</em>;
begin
readln(s);
if not (Integer.TryParse(s, t)) then
if not (Real.TryParse(s, t1)) then
t := 0
else
t := 2
else
t := 1;
writeln(t);
end.
Р1=2/3 - вероятность появления автобуса №1
р5 =1/3 - вероятность появления автобуса №5
а) I =log2 (3/2) =0,379 бит
б) I=log2 (3) =1,585 бит
в) I = 0,379 бит
1. а=10
2. а=12
3. а=3
4. а=22
5. а=15
6. а=34
7. а=3