Написать программу вычисления стоимости покупки с учётом скидки.
Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей. Ниже приведён
рекомендуемый вид экрана во время выполнения программы:
Введите сумму покупки и нажмите
-> 1200
Вам предоставляется скидка 10%
Сумма покупки с учётом скидки 1080 рублей
Program p1;
var s:real;
begin
writeln(Введите сумму покупки: );
read(s);
if s>1000 then
begin
s:=s-(s*0.1);
writeln(Вам предоставляется скидка 10%);
end;
writeln(Сумма покупки с учётом скидки ,s, рублей);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
