ОЧЕНЬ Питон Отступал лес. Все реже попадались островки зеленой травы. Позади осталась речка. Ветер носил тучи пыли. К обеду мы перевалили через невысокую цепь холмов, и перед нами открылось песчаное море. Меня поразил цвет песка: он был не белый и не желтенький, как на пляже. Он был темно-кирпичный, почти красный. И он не стоял на месте: в сравнении с пляской этих красных гор даже море в шторм показалось бы, наверное, спокойным.

Напишите программу, записывающую цвета разных песчаных морей.

Формат ввода

Вводятся названия морей, пока не будет введена пустая строка. Потом вводится количество цветов песка, затем сами цвета.

Формат вывода

Для каждого моря через * запишите все цвета, с которыми у этого моря есть общие буквы, если не обращать внимание на регистр, и длины имеют не совпадающую четность. Цвета записывайте после названия моря через символ &, без повторений. Название моря большими буквами.

Если подходящих цветов для моря не нашлось, то его не выводить. Порядок вывода морей и цветов не важен.

Объяснение:

базовое программное обеспечение (base software) – минимальный набор программных средств, обеспечивающих работу компьютера.

в него входят операционная система (предназначена для управления выполнением пользовательских программ, управления вычислительными ресурсами), операционные оболочки (сециальные программы, которые предназначены для упрощения работы пользователя с командами операционной системы, имеют текстовый и графический варианты интерфейса), сетевая операционная система (комплекс программа, который обеспечивает обработку, передачу и хранение данных в сети).

Объяснение:

program abc;

const n=2; // Задание начальных параметров массива через константы

const m=2;

var C:array[1..n,1..m] of integer;

A:array[1..n,1..m] of integer;

B:array[1..n,1..m] of integer;

i,j:integer;

begin

 for i:=1 to n do

   for j:=1 to m do

    begin

     readln(A[i,j]); // Ввод данных и вычисление по формуле

     readln(B[i,j]);

     C[i,j]:=A[i,j]+B[i,j];

    end;

  writeln('C[n,m] = ');

  for i:=1 to n do

   begin

    for j:=1 to m do

     write(C[i,j],' '); // Вывод массива

    writeln;

   end;

end.

program abc;

const n=3; // Задание начальных параметров массива через константы

const m=3;

var A:array[1..n,1..m] of integer;

i,j:integer;

begin

 for i:=1 to n do

   for j:=1 to m do  // Ввод данных массива

     readln(A[i,j]);  

 writeln('Оригинальный массив A(n,m):');

 for i:=1 to n do  // Вывод оригинального массива

   begin

    for j:=1 to m do

      write(A[i,j],' ');

    writeln;

   end;

  for i:=1 to n do // Замена 2-ого столбца 2-ой строкой

   A[i,2]:=A[2,i];

   writeln('Изменённый массив A(n,m):');

   for i:=1 to n do // Вывод изменённого массива

   begin

    for j:=1 to m do

      write(A[i,j],' ');

    writeln;

   end;

end.