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

Question

Информатика

Добрыня

4 августа, 10:40

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

+4

Ответы (1)

Знаете ответ на вопрос?

Декабриныч · Answer 1

Var

S:real;

Begin

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

if S > 1000 then Write ('С учётом скидки: ', S*0.9:0:2)

else Write ('Скидка не предоставляется') ;

End.