Составить программу (полный текст программы) вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупки больше 500 руб, в 5% - если сумма больше 1000 руб. Фрагмент программы: if x>500 then y:=0.97*x; if x>1000 then y:=0.95*x;

Ниже приведён полный текст программы, которая вычисляет итоговую стоимость покупки с учётом скидки:

• если сумма покупки x больше 1000 руб — скидка 5% (итог y = 0.95 * x);

• иначе если сумма покупки x больше 500 руб — скидка 3% (итог y = 0.97 * x);

• иначе скидки нет (итог y = x).

Важно: проверку x > 1000 нужно делать первой, иначе при x = 1200 сначала сработает скидка 3%, а потом (или вообще некорректно) будет пересчитано — логически правильнее сразу выбирать максимальную подходящую скидку.

Полный текст программы (Pascal)

pascal
Копировать код
program DiscountPurchase;
var
  x, y: real;
begin
  writeln('Введите сумму покупки (руб):');
  readln(x);
  if x > 1000 then
    y := 0.95 * x
  else if x > 500 then
    y := 0.97 * x
  else
    y := x;
  writeln('Итоговая стоимость с учетом скидки: ', y:0:2, ' руб.');
end.