....................................
Var a S:integer;
begin
readln(a);
S:=6*a*a;
writeln(S);
end.
Вроде так
так как врач принимает каждого пациента 30 мин,то с 8 до 12 он примет 8 пациентов.из того что 8=2^i=2^3.отсуда получается I=3 бита
1)<span>110101001
</span>2)100000000
3)1101010100
4)10011011011
5)101000001001
6)1000111011000
7)11000100011000
8)101000011
9)<span>10110000</span>