Question

Написать программу вычисления стоимости покупки с учётом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей. Ниже приведён рекомендуемый вид экрана во время выполнения программы: Введите сумму покупки и нажмите -> 1200 Вам предоставляется скидка 10% Сумма покупки с учётом скидки 1080 рублей

Answer 1

Program p1;
var s:real;
begin
writeln('Введите сумму покупки: ');
read(s);
if s>1000 then
begin
 s:=s-(s*0.1);
 writeln('Вам предоставляется скидка 10%');
end;
writeln('Сумма покупки с учётом скидки ',s,' рублей');
end.