Question

написать программу определения наличия скидки на покупку. Скидка предоставляется,если сумма покупки свыше 10000р

Answer 1

Ответ:

var

   s: real;

begin

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

   readln(s);

   if s > 1000 then

       s := s * (1 - 0.05)

   else if s > 500 then

       s := s * (1 - 0.03);

   

   writeln('Сумма покупки с учетом скидки: ', s);

end.

Подробнее - на Znanija.com - https://znanija.com/task/2175242#readmore

Объяснение: