Предмет: Информатика,
автор: ekaterinagolys
Написать программу вычисления покупки с учётом скидки 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.
Похожие вопросы
Предмет: Английский язык,
автор: geinevica56
Предмет: Английский язык,
автор: Аноним
Предмет: Алгебра,
автор: araslanoveldar08
Предмет: Алгебра,
автор: zWhooeZHAoksandy
Предмет: Физика,
автор: alenamelnik69