Задача 1 (Уровень А) «Музыкальные инструменты» Список lst содержит список музыкальных инструментов ['guitar', 'piano', 'sintezator', 'drums']. Напишите программный код, который добавит в список инструмент ‘cello’. Выведите новый список на экран.

Пример,

list ['guitar', 'piano', 'sintezator', 'drums']

output ['guitar', 'piano', 'sintezator', 'drums', ‘cello’]

Задача 2 (Уровень В) «Музыкальные инструменты - 3»

Список lst содержит список музыкальных инструментов ['guitar', 'piano', 'sintezator', 'drums']. Напишите программный код, который удалит из списка все инструменты, которые имеют нечетные индексы. Выведите новый список на экран.

Пример,

list ['guitar', 'piano', 'sintezator', 'drums']

output ['guitar', 'sintezator']

Задача 3 (Уровень С) «Меню»

Список lst1 содержит меню блюд [‘Snacks’, ‘Caesar Salad’, ‘Spaghetti’, ‘Chicken Stirfry’], а список lst2 содержит [‘French Fries’, ‘Caesar Salad’, ‘Fish and Chips’, ‘Chicken Stirfry’, ‘Juice’]. Напишите программный код, который добавляет блюда, которые не повторяются, из второго списка в первый.

Пример,

list [‘Snacks’, ‘Caesar Salad’, ‘Spaghetti’, ‘Chicken Stirfry’]

output [‘Snacks’, ‘Caesar Salad’, ‘Spaghetti’, ‘Chicken Stirfry’, ‘French Fries’, ‘Fish and Chips’, ‘Juice’]

​

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.

96

Объяснение:

Сначала вспомним, что такое конъюнкция: это аналог логической операции И(в простонародье - операции умножения). В бинарной(двоичной) системе счисления она используется так :

0 и 0 = 0

1 и 0 = 0

0 и 1 = 0

1 и 1 = 1

Ну, а теперь возьмём пример

Адрес: 231.32.255.131

Маска: 255.255.240.0

Отлично. Посмотрим сразу на число 255, оно в двоичной системе выглядит так : 11111111. Это значит, что при побитовой конъюнкции любого числа, получается тоже самое число. Т.е. :

231 = 11100111, 255 = 11111111. (возьму первые 4 бита : 1*1=1,1*1=1,1*1=1,1*0=0)

Т.о. 231(логическое И)255=231.

Теперь адрес сети:

231*255=231

32*255=32

255*240=240

131*0=0

Вот и получили адрес сети : 231.32.240.0

Теперь решение задачи :

Тут нужно в обратную сторону. Есть IP адрес, есть узел.

Узел : 98.162.71.123

Адрес: 98.162.71.96

Надо найти правый байт. У узла он равен 123(в десятичной) -> 1111011(в двоичной). У адреса он равен 96(в десятичной) -> 1100000.

Ну, а теперь обратное действие, смотрим на байты узла, умножаем на x, получаем байты адреса. Вот так :

1111011*=1100000

1*х=1 -> x=1

1*x=1 -> x=1

1*x=0 -> x=0

... И так далее, но дальше считать нет смысла, ибо все остальные пять байтов будут равны нулю, т.к. правая часть вся равна нулю(по свойствам выше)

Получили =1100000, а это тоже самое, что и последний байт адреса сети, и равен он 96.

Получили маску : 255.255.255.96