Question

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

Answer 1

Ответ:

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. // Конец программы