Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.
//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
Всего 64 фломастера, каждый из них можем достать, значит всего 64 события)
1). 64=2i
26=2i
i = 6 (бит) - приходится на 1 событие.
<span>^ Ответ: Сообщение о том, что из коробки достали красный фломастер содержит 6 бит информации</span>
Первое видео? Похоже программа ломаная, качай вегас, он надежнее
<span>устройство обеспечивающие обмен информацией с контроллерами периферических устройств, называется
шина</span>