Question

Нужно написать код в PascalABC в которой можно будет самому вписать:

- сумму первого товара

- скидку

А так же, нужно чтобы программа самостоятельно вычисляла максимальную сумму второго товара чтобы окончательная сумма была меньше чем сумма первого товара, далее она склаживает сумму первого и второго товаров, накладывала на него скидку и показывала окончательную сумму (окончательная сумма покупок должна быть меньше, чем сумма первого товара). Прошу, очень срочно!!

Answer 1

Ответ:

program Shop;

var

firstProduct, discount, secondProduct, total: real;

begin

write('Введите сумму первого товара: ');

readln(firstProduct);

write('Введите размер скидки: ');

readln(discount);

secondProduct := (firstProduct - (firstProduct * (discount / 100))) / 2;

total := firstProduct + secondProduct - (firstProduct + secondProduct) * (discount / 100);

writeln('Максимальная сумма второго товара: ', secondProduct:0:2);

writeln('Окончательная сумма: ', total:0:2);

end.