Если покупка равна 500 и больше,то предоставляется скидка в 10%,если сумма покупки 1000

Если покупка равна 500 и больше,то предоставляется скидка в 10%,если сумма покупки 1000и больше,то скидка=20% Как будет выглядеть задача в паскале?
Гость
Ответ(ы) на вопрос:
Гость
Var x,y : integer; begin readln(x); y:= x; if x >= 500 then y := (x * 90) / 100; else if x >= 1000 then y:= (x*80) / 100; else print('Скидки нет'); print(y); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы