Напишите программу на Питоне: Программа из различных занятий пассажира выберет благопристойные, то есть те, что с проверочной фразой имеют более 7 общих слов. Вводится проверочная фраза, а затем строка занятий через точку с запятой и пробел. Через @ окружённый пробелами вывести только те занятия которые с проверочной фразой имеют более 7 общих символов. Одинаковые символы считать за один, регистр важен.

~~~~~~~~~~~~~~~

Программа:

program change;

var

a, b, c, d, changeabcd: integer;

begin

 changeabcd := 0;

 read(a, b, c, d);

 changeabcd := d - (a + b + c);

 write(changeabcd);

end.

~~~~~~~~~~~~~~~

Алгоритм:

Шаг 1. Присвоить переменной changeabcd значение 0;

Шаг 2. Ввести a, b, c, d;

Шаг 3. Вычислить changeabcd = d - (a + b + c);

Шаг 4. Вывести changeabcd.

~~~~~~~~~~~~~~~

Блок-схема в прикрепленном скриншоте.

Объяснение:

program change;  // Название программы

var

 a, b, c, d, changeabcd: integer;  // Создание целочисленных переменных:

begin  // Начало программы

 changeabcd := 0;  // Переменной, хранящую сдачу, присваиваем 0

 read(a, b, c, d);  // Считываем значения переменных с клавиатуры

 changeabcd := d - (a + b + c);  // Высчитываем сдачу

 write(changeabcd); // Выводим значение переменной changeabcd, хранящей сдачу

end. // Конец программы

Событие: решение задачи. Источник информации: учитель. Приемник информации: ученик. Информационный носитель: доска. Событие: измерения давления. Источник ифнормации: пациент. Приемник информации: врач. Информационный носитель: тонометр. Событие: воспроизведение аудиофайла. Источник информации: пользователь. Приемник информации: сайт. Информациональнный носитель: ПК/телефон.

Событие: воспроизведение: видео и аудиофайла. Источник информации: пользователь. Приемник информации: телевизор. Информациональный

носитель: телевизор. Событие: воспроизведение

музыкального фрагмента в живую. Источник информации: ученик. Приемник информации: ближайшие слушатели. Информациональнный

Носитель: гитара.