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. // Конец программы
126 дисков
Объяснение:
Рассмотрим 6го покупателя
х-было
0,5х+1-продал
осталось 0
х-(0,5х+1)=0
х-0,5х-1=0
0,5х=1
х=1:0,5=2
Аналогично 5й покупатель
х-(0,5х+1)=2
х-0,5х-1=2
0,5х=3
х=3:0,5=6
Аналогично 4й покупатель
х-(0,5х+1)=6
х-0,5х-1=6
0,5х=7
х=7:0,5=14
Аналогично 3й покупатель
х-(0,5х+1)=14
х-0,5х-1=14
0,5х=15
х=15:0,5=30
Аналогично 2й покупатель
х-(0,5х+1)=30
х-0,5х-1=30
0,5х=31
х=31:0,5=62
Аналогично 1й покупатель
х-(0,5х+1)=62
х-0,5х-1=62
0,5х=63
х=63:0,5=126
ответ: Попов принес на ярмарку 126 дисков