<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
// Вводим строку с клавиатуры, приводим буквы к строчным,
// разбиваем на слова по пробелу и помещаем их в массив aW
var aW:=ReadlnString('->').ToLower.ToWords;
// Пропускаем массив через фильтр, оставляющий слова, содержащие
// русскую букву "а" и подсчитываем, сколько слов прошло через него.
// Полученное количество выводим.
Writeln('Слов с "а": ',aW.Where(w->Pos('а',w)>0).Count)
end.
Пример
-> Наша Таня громко плачет: уронила в речку мячик
Слов с "а": 4
1101111011,01(2)=1573.2(8)=37B.4(16)
11010,101(2)=32.5(8)=1A.A(16)
1011010011,01(2)=1323.2(8)=2D3.4(16)
101000010,0111(2) =502.34(8)=142.7(16)
Выражение можно упростить:
( (X∨Y ) ⇒ Y ) & (1 ∨ Y) ⇒¬Y
=
(<span>¬X∨Y )</span><span> & </span><span>(1 ∨ Y) ⇒¬Y
=</span>
(¬X∨Y ) <span>⇒¬Y =
X </span><span>& </span><span>¬Y </span><span>v ¬Y =
</span><span>¬Y
Значит для любого X если Y = 0, то значение выражения = 1 и наоборот, если Y = 1, </span><span><span>то значение выражения = 0</span></span>
у маленьких треугольников 3 ребра, а их 8 => 8*3=24;
ребер у куба - 12
значит всего ребер - 36
Begin
var n := 3;
var s = n;
repeat
n := n + 4;
s := s + n
until n >= 87;
WriteLn(s);
end.