Pascal - Задача решить. Составить программу, вычисляющую - вопрос №16282893 от aizmesteva 12.05.2022 13:30

Question

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

aizmesteva · Answer

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....