Информатика задача в виде Паскаль .. Покупателю предоставляется скидка 10% на сумму покупки от 200 до 300 €, скидка 20% на сумму покупки свыше 400 €. При вводе суммы к оплате программа рассчитывает предоставлена ли скидка и в каком размере, а также сколько осталось доплатить
Информатика задача в виде Паскаль .. Покупателю предоставляется скидка 10% на сумму покупки от 200 до 300 €, скидка 20% на сумму покупки свыше 400 €. При вводе суммы к оплате программа рассчитывает предоставлена ли скидка и в каком размере, а также сколько осталось доплатить
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Task;
var
purchaseAmount, discount, remainingAmount: real;
begin
write('Enter the purchase amount: ');
readln(purchaseAmount);
if (purchaseAmount >= 200) and (purchaseAmount <= 300) then
discount := 0.1
else if purchaseAmount > 400 then
discount := 0.2
else
discount := 0;
remainingAmount := purchaseAmount - (purchaseAmount * discount);
writeln('Discount provided: ', discount*100:0:0, '%');
writeln('Remaining amount to pay: ', remainingAmount:0:2, ' €');
end.