В магазине проводится акция при сумме покупки больше 1000 р, предлагается скидка 10%. Ввести сумму покупки, вывести;

1) сообщение о том, предоставляется ли скидка

2) сумму к оплате

Написать программу в паскале

Question

Информатика

Кириллич

24 января, 14:31

В магазине проводится акция при сумме покупки больше 1000 р, предлагается скидка 10%. Ввести сумму покупки, вывести;

1) сообщение о том, предоставляется ли скидка

2) сумму к оплате

Написать программу в паскале

+1

Ответы (1)

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

Лидуся · Answer 1

Var s:real;

begin

write ('Сумма покупки = ') ;

readln (s) ;

if s>1000

then writeln ('Предоставляется скидка 10%. Сумма к оплате = ', s*0.9)

else writeln ('Скидка не предоставляется. Сумма к оплате = ', s) ;

end.

Пример:

Сумма покупки = 2000

Предоставляется скидка 10%. Сумма к оплате = 1800