Question

Pascal - Задача, помогите решить.
Составить программу, вычисляющую стоимость покупки с учетом скидки: если покупка превышает 1500 р., то начисляется скидка 3%, если превышает 2000, то начисляется скидка 5%. Выше 4000 - скадка 7%. На вход - стоимость покупки, выход - сколько нужно оплатить.

Answer 1

var x: real;

begin

  writeln('введите цену товара');

 read(x);

 if x>4000 then x:=x-x*0.07 else

    if x>2000 then x:=x-x*0.05 else

      if x>1500 then x:=x-x*0.03;

    write(x)

     

end.