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

Question

Информатика

Феофилакт

24 августа, 01:02

Написать программу вычисления покупки с учётом скидки 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.