Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10%...

Question

Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб. Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом). Вычисление стоимости покупки с учетом скидки Введите сумму покупки и нажмите -> 1200 Вам предоставляется скидка 10% Сумма покупки сучетом скидки: 1080.00 руб.

Answer 1

Var st:real;
begin
writeln('Вычисление стоимости покупки с учетом скидки');
writeln('Введите сумму покупки и нажмите ->');
readln(st);
if st>1000
 then writeln('Вам предоставляется скидка 10%. Сумма покупки с учетом скидки: ',st-st*0.1:5:2,' руб.')
 else writeln('Скидка не предоставляется. Сумма покупки: ',st);
end.

Пример:
Вычисление стоимости покупки с учетом скидки
Введите сумму покупки и нажмите ->
1200
Вам предоставляется скидка 10%. Сумма покупки с учетом скидки: 1080.00 руб.