Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% - если сумма больше 1000 руб. (Pascal)

Question

Информатика

Светозара

23 июля, 21:27

Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% - если сумма больше 1000 руб. (Pascal)

+3

Ответы (1)

Знаете ответ на вопрос?

Мася · Answer 1

program zadacha;

var

a:integer;

b:real;

begin

writeln ('введите сумму покупки') ;

readln (a) ;

b:=a;

if a>500 then b:=a/1.03;

if a>1000 then b:=a/1.05;

writeln ('сумма покупки с учетом скидки равна:', b) ;

readln;

end.