Написать програму по расчету новой цены с учетом скидки данные вводятся с клав/пропорция.
Answers & Comments
Anna131031
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.
Answers & Comments
var s:real;
begin
writeln('Введите сумму покупки: ');
read(s);
if s>1000 then
begin
s:=s-(s*0.1);
writeln('Вам предоставляется скидка 10%');
end;
writeln('Сумма покупки с учётом скидки ',s,' рублей');
end.