~~~~~~~~~~~~~~~
Программа:
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; // Создание целочисленных переменных:
a, b, c, d - стоимость перчаток, портфеля, галстука и сумма, выделенная на покупку;changeabcd - сдача.begin // Начало программы
changeabcd := 0; // Переменной, хранящую сдачу, присваиваем 0
read(a, b, c, d); // Считываем значения переменных с клавиатуры
changeabcd := d - (a + b + c); // Высчитываем сдачу
write(changeabcd); // Выводим значение переменной changeabcd, хранящей сдачу
end. // Конец программы
Событие: решение задачи. Источник информации: учитель. Приемник информации: ученик. Информационный носитель: доска. Событие: измерения давления. Источник ифнормации: пациент. Приемник информации: врач. Информационный носитель: тонометр. Событие: воспроизведение аудиофайла. Источник информации: пользователь. Приемник информации: сайт. Информациональнный носитель: ПК/телефон.
Событие: воспроизведение: видео и аудиофайла. Источник информации: пользователь. Приемник информации: телевизор. Информациональный
носитель: телевизор. Событие: воспроизведение
музыкального фрагмента в живую. Источник информации: ученик. Приемник информации: ближайшие слушатели. Информациональнный
Носитель: гитара.
Тут может быть несколько вариантов, если я правильно понимаю условие.
Приведу два примера, в скобках – номера команд (1 – умножить на 2; 2 – умножить на 3; 3 – вычесть 1):
1 вариант
1) 4 - 1 = 3 (3)
2) 3 – 1 = 2 (3)
3) 2 * 3 = 6 (2)
4) 6 – 1 = 5 (3)
5) 5 * 3 = 15 (2)
ответ: 33232
2 вариант
1) 4 – 1 = 3 (3)
2) 3 * 2 = 6 (1)
3) 6 – 1 = 5 (3)
4) 5 * 3 = 15 (2)
ответ: 3132