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

Question

Информатика

Силантий

13 сентября, 16:54

Составить программу (полный текст программы) вычисления стоимости покупки с учетом скидки. Скидка в 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.