Четыре человека пообедали в ресторане. Официант подал каждому счет. Они решили оставить официанту чаевые в размере 15% от счета. Составьте программу, которая выведет на экран сумму чаевых, которую получит официант. Напишите программу для PascalABC

program restoran;

var

 first, second, third, fourth: integer;

 first_tip, second_tip, third_tip, fourth_tip, amount: real;

begin

 amount := 0;

 read(first, second, third, fourth);

 first_tip := first / 100 * 15;

 second_tip := second / 100 * 15;

 third_tip := third / 100 * 15;

 fourth_tip := fourth / 100 * 15;

 amount := first_tip + second_tip + third_tip + fourth_tip;

 write(amount);

end.

Объяснение:

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

var

 first, second, third, fourth: integer;  // Создание целочисленных переменных, отвечающих за счёт, на который пообедали гости

 first_tip, second_tip, third_tip, fourth_tip, amount: real;  // Создание вещественных (с плавающей точкой) переменных, отвечающих за размер чаевых и сумму чаевых соответственно

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

 amount := 0;  // Сумма = 0

 read(first, second, third, fourth);  // Считываем значения счетов каждого гостя с клавиатуры

 first_tip := first / 100 * 15;  // Чаевые с первого счета

 second_tip := second / 100 * 15;  // Чаевые со второго счета

 third_tip := third / 100 * 15;  // Чаевые с третьего счета

 fourth_tip := fourth / 100 * 15;  // Чаевые с четвертого счета

 amount := first_tip + second_tip + third_tip + fourth_tip;  // Сумма чаевых

 write(amount);  // Вывод суммы

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

т.к. каждый символ кодируется 16 битами=2 байта, то получаем что в вычеркнутом слове 3 символа (3*2=6 байт) и ставшие лишними 1 пробел (2 байта) и 1 запятая (2 байта)