Question

Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3\% предоставляется в том случае, если сумма покупки

больше 500 руб., в 5\% — если сумма больше 1000 руб. (Pascal)

Answer 1

Var
    s: real;

begin
    write('Введите сумму покупки: ');
    readln(s);
    if s > 1000 then
        s := s * (1 - 0.05)
    else if s > 500 then
        s := s * (1 - 0.03);
    
    writeln('Сумма покупки с учетом скидки: ', s);
end.