Покупатель получает 5% скидку на покупку, если ее стоимость превышает 500 у. е., и 10% скидку если 1000 у. е.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 | program choice_5; uses crt; var p: real; begin clrscr; write(‘Стоимость покупки > ‘); readln(p); if (p>500) and (p<=1000) then write(‘Скидка 5%: ‘, p–(p/100*5)) else if p>1000 then write(‘Скидка 10%: ‘, p–(p/100*10)) else write(‘Скидки нет: ‘, p); readkey; end. |
