// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
Битых- нет, а пиксели которые выгорают - да
Переводим на русский:
"Нечетное число меньше 75"
Т.к. высказывание должно быть ложно, берем в ответ всё, что либо четно, либо >= 75, либо и то и другое.
Ответ: 46, 80, 75
____
Либо же берем все числа такие, что высказывание становится истинным (то бишь 53 и 69), и затем берем от этого множества чисел инверсию (т.е. всё, кроме них самих)
Количество информации равно бинарному логарифму (т. е. по основании 2) количества равновероятных возможностей. В бассейне 20 дорожек, выбрана одна (неважно под каким номером) Тогда i = log2 20 (логарифм числа 20 по основанию 2) =(по формуле перехода логарифма к другому основанию) = lg20 / lg2 ≈ 4.32
Ответ 4.32 бит