// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(30,-10,20).Println(',');
Writeln('Сумма элементов, больших 10, равна ',
a.Where(x->x>10).Sum);
end.
<u><em>Тестовое решение:</em></u>
4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18
Сумма элементов, больших 10, равна 125
Program aliona;
var a,b:integer;
c,p1,p2:real;
begin
writeln('vvedite sirinu =');
readln(a);
writeln('vvedite dlinu=' );
readln(b);
p1:=0;
p2:=0;
c:=b/2;
p1:=(a+b)*2;
p2:=4*c;
writeln('p1=',p1,'p2=',p2);
readln;
<span>end.</span>
Цепочка символов КОМ. Цепочка нечётна, дублируем средний символ.
КООМ. Следующая операция - заменяем все буквы на следующие.
ЛППН
В задании сказано, применить алгоритм к цепочке дважды. Поехали
ЛППН - чётное число букв, значит СЛППН
Меняем буквы
ТМРРО
Ответ: ТМРРО
<span>не(А&B)|не(B&C)
Я перепишу по человечески
!(A*B) + !(B*C) = !A + !B + !B + !C = !A + !B + !C
По моему больше не упростить</span>