Ответы на вопрос:
Var s: real; begin write('введите сумму покупки: '); readln(s); write('сумма покупки с учётом скидки: '); if s < = 1000 then writeln(s) else if s > 10000 then writeln(s*0.8: 0: 2) else writeln(s*0.9: 0: 2); writeln('без учёта скидки: ',s: 0: 2); end.
Популярно: Информатика
-
Надежда77733305.08.2021 05:46
-
Keksic006603.05.2020 12:20
-
Reshauvce08.04.2020 22:46
-
луч1621.02.2023 14:05
-
Просточеловек77726.04.2022 01:22
-
Dj66927.01.2021 01:29
-
NikaNeo28.01.2021 02:32
-
umniy101010100018.06.2023 19:45
-
Пандochka08.10.2021 12:57
-
rozaMika24.05.2022 11:15