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; // Чаевые с третьего счета
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. // Конец программы