• Ребят,вот инфу задали,я чет не программист,помогите пжлст))

    question img

Ответы 1

  • var a:real;begin;Writeln('Вычисление стоимости покупки с учётом скидки.');Writeln('Введите сумму покупки и нажмите Enter');Readln(a);if (a>500) and (a<1000) thenbegin;writeln('Вам предоставляется скидка 3%');a:=a/100*97;end;if a>1000 thenbegin;writeln('Вам предоставляется скидка 5%');a:=a/100*95;end;Writeln('Сумма покупки с учётом скидки:',a,'руб');end.
    • Автор:

      annabella
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years