Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб. Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом). Вычисление стоимости покупки с учетом скидки Введите сумму покупки и нажмите -> 1200 Вам предоставляется скидка 10% Сумма покупки сучетом скидки: 1080.00 руб.
спросил от в категории Информатика

1 Ответ

Var st:real;
begin
writeln(Вычисление стоимости покупки с учетом скидки);
writeln(Введите сумму покупки и нажмите ->);
readln(st);
if st>1000
 then writeln(Вам предоставляется скидка 10%. Сумма покупки с учетом скидки: ,st-st*0.1:5:2, руб.)
 else writeln(Скидка не предоставляется. Сумма покупки: ,st);
end.

Пример:
Вычисление стоимости покупки с учетом скидки
Введите сумму покупки и нажмите ->
1200
Вам предоставляется скидка 10%. Сумма покупки с учетом скидки: 1080.00 руб.
ответил от
x
...