Составить программу вычисления стоимости покупки с учётом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей.

Ниже предоставлен рекомендуемый вид экрана во время работы с программой

Введите сумму покупки 1200

Сумма покупки с учётом скидки 1080

Question

Информатика

Кирьяна

23 ноября, 15:58

Составить программу вычисления стоимости покупки с учётом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей.

Ниже предоставлен рекомендуемый вид экрана во время работы с программой

Введите сумму покупки 1200

Сумма покупки с учётом скидки 1080

+1

Ответы (1)

Знаете ответ?

Дионисий · Answer 1

Var A : Real;

Begin

Write (' Введите сумму покупки: ') ;

Readln (A) ;

If A>1000 then A:=A-A/10;

Writeln ('Сумма покупки с учётом скидки : ', A:8:2) ;

end.