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

Question

Информатика

Романыч

29 января, 14:49

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

+2

Ответы (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.