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

Ответы 1

  • var a,b:real;beginwriteln(\'Enter price: \');readln(a);b:=10;b:=a/b;if (a>1000) thenbeginwriteln(\'Discount 10%\');a:=a-b;write(\'Price with discount: \',a:2:2);readln;endelsebeginwrite(\'Price: \',a:2:2);readln;end;end.Второй вариант выполнения программы:var summa, skidka: real;begin writeln(\'Вычисление стоимости покупки с учетом скидки.\'); writeln(\'Введите сумму покупки: \'); readln(summa); if summa >1000 then skidka:=10; writeln(\'Вам предоставлена скидка \', skidka, \'%\'); writeln(\'Сумма покупки с учетом скидки: \', (summa-(summa*skidka)/100));end.
    • Автор:

      ireland
    • 4 года назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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