begin var a:=MatrRandom(7,7,-10,10); writeln('A:'); a.Println(5); var s:=a.ElementsWithIndexes.Where(k->(k[1]=k[2])and(k[0].IsEven)). Select(k->k[0]).Sum; writeln('s = ',s); end.
Каждый символ может принимать любое значение, точка, либо тире.То есть мы можем получить и ... и _ _ _ и _._ и ещё кучу всего (это только из 3ёх, из 4ёх символов аналогично, но кол-во будет больше)Для начала подсчитаем количество символов, которое можно закодировать с ёх знаков:Далее подсчитаем, сколько символов можно закодировать с четырёх знаков:Формула состоит из количества знаков, которыми можно записать число, возведённых в степень, равную количеству использования этих знаков. Что бы узнать, сколько можно закодировать используя "не менее 3ёх и не более 4ёх сигналов", нужно просто сложить наши два результата, 8+16=24
Изобретения 19-20 века весьма многочисленны. Самыми значительными можно назвать фотографию, динамит, анилиновые краски для тканей. Кроме того, были открыты более дешевые методы изготовления бумаги, спирта, изобретены новые медикаменты.Технические изобретения 19 века имели большое значение в развитии общества. Так, при телеграфа люди смогли передавать сообщения в течение нескольких секунд с одного конца мира на другой. Изобретен телеграф в 1850 году. Немного позже начали появляться телеграфные линии. Грэхем Белл изобрел телефон. Сегодня люди не представляют себе жизнь без этого открытия.
begin
var a:=MatrRandom(7,7,-10,10);
writeln('A:'); a.Println(5);
var s:=a.ElementsWithIndexes.Where(k->(k[1]=k[2])and(k[0].IsEven)).
Select(k->k[0]).Sum;
writeln('s = ',s);
end.
Пример:
A:
5 3 -8 3 -2 -9 -5
-4 5 -7 9 -1 -9 3
-6 -5 10 -6 3 2 -8
-6 10 -10 -2 7 7 2
-7 1 4 -6 10 -6 -6
-9 -2 -3 6 6 -7 8
-8 10 9 -10 2 10 -3
s = 18