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

Question

Информатика

Ританя

17 июня, 20:24

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

+1

Ответы (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.