Написать программу вычисления стоимости покупки с учётом скидки.
Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей. Ниже приведён
рекомендуемый вид экрана во время выполнения программы:
Введите сумму покупки и нажмите
-> 1200
Вам предоставляется скидка 10%
Сумма покупки с учётом скидки 1080 рублей
Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей. Ниже приведён
рекомендуемый вид экрана во время выполнения программы:
Введите сумму покупки и нажмите
-> 1200
Вам предоставляется скидка 10%
Сумма покупки с учётом скидки 1080 рублей
More Questions From This User See All
Answers & Comments
var s:real;
begin
writeln('Введите сумму покупки: ');
read(s);
if s>1000 then
begin
s:=s-(s*0.1);
writeln('Вам предоставляется скидка 10%');
end;
writeln('Сумма покупки с учётом скидки ',s,' рублей');
end.