Написать программу вычисления покупки с учётом скидки 10%. Скидка предоставляется, если сумма покупки больше 1000 руб.
Ответы
Ответ дал:
0
Var
S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
if S > 1000 then Write('С учётом скидки: ',S*0.9:0:2)
else Write('Скидка не предоставляется');
End.
S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
if S > 1000 then Write('С учётом скидки: ',S*0.9:0:2)
else Write('Скидка не предоставляется');
End.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад