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

Question

Информатика

Артемей

12 ноября, 03:48

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

+2

Ответы (1)

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

Инуся · Answer 1

var a, b : real; begin writeln ('Enter price: ') ; readln (a) ; b : = 10; b : = a / b; if (a> 1000) then begin writeln ('Discount 10%') ; a : = a - b; write ('Price with discount: ', a : 2 : 2) ; readln; end else begin write ('Price: ', a : 2 : 2) ; readln; end; end.