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

Question

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

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

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

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

Answer 1

Точно не уверен но вроде так:

var
 s:real;
begin
writeln ('Введите сумму покупки: ');
readln(s);
if s>1000 then
begin
writeln('Сумма покупки с учётом скидки: ',s*0.9:0:2,' руб.');
end
else
writeln('Сумма покупки: ',s:0:2,' руб.');
end.

Comments

Pabc.net - но это не важно, такой код не требует спец.версии

---

Вот рез-тат твоего кода: Введите сумму покупки:
1200
Сумма покупки с учётом скидки: 10800.00 руб.

---

щас посмотрим

---

и еще у тебя не хватает вывод суммы, если она менее 1000

---

writeln('Сумма покупки: ', s:0:2, ' руб. ');

---

забыл

---

ты не сюда пиши, а в ответ свой. И формулу расчёта подредактируй

---

готово

---

я просто начинающий, чайник :D пол года как занялся программированием

---

бывает