В магазине проводится акция при сумме покупки больше 1000 р, предлагается

В магазине проводится акция при сумме покупки больше 1000 р, предлагается скидка 10%. Ввести сумму покупки, вывести;
1) известие о том, предоставляется ли скидка
2)сумму к оплате
Написать программу в паскале

Задать свой вопрос
1 ответ
Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if sgt;1000
 then writeln('Предоставляется скидка 10%. Сумма к оплате = ',s*0.9)
 else writeln('Скидка не предоставляется. Сумма к оплате = ',s);
end.

Пример:
Сумма покупки = 2000
Предоставляется скидка 10%. Сумма к оплате = 1800
Нелли Неунывалова
это только 1)?
Тамара Чичуа
а откуда 0,9?
Antonina Edanina
Если скидка 10%, то цена покупки = (s-10%s) = 0.9s
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт