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

Question

Информатика

Федосья

28 февраля, 00:07

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

+5

Ответы (1)

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

Евстафий · Answer 1

var

x: real;

begin

readln (x) ;

if (x > 500) then x : = 0.97 * x

else if (x > 1000) then x : = 0.95 * x;

writeln ('Стоимость покупки с учетом скидки: ', x) ;

end.