Написать програму по расчету новой цены с учетом скидки данные вводятся с клав/пропорция.

Question

Информатика

Кристинья

18 апреля, 01:14

Написать програму по расчету новой цены с учетом скидки данные вводятся с клав/пропорция.

+3

Ответы (1)

Знаете ответ?

Косма · Answer 1

Program p1;

var s:real;

begin

writeln ('Введите сумму покупки: ') ;

read (s) ;

if s>1000 then

begin

s:=s - (s*0.1) ;

writeln ('Вам предоставляется скидка 10%') ;

end;

writeln ('Сумма покупки с учётом скидки ', s,' рублей') ;

end.