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

Question

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

Ниже предоставлен рекомендуемый вид экрана во время работы с программой

Введите сумму покупки 1200

Сумма покупки с учётом скидки 1080

Answer 1

Program pr1;
var s: real;
Begin
Write('Введите стоимость покупки ');
Readln(s);
if (s>1000) then s:=s*0,9;
Writeln('Сумма покупки с учетом скидки ',s);
End.