Я мог ошибиться в формуле. Она в цикле, перепроверь.
<span>дополни схему: действия с информацией-считать,передавать, копировать, править, удалять.</span>
Язык программирования какой?
Для Paskal ABC
Program magazin;
var
a:integer;
s:integer;
begin
s:=0;
writeln('Введите стоимость:');
readln(a);
If a<1000 then begin
writeln('Скидок нет');
writeln('Ваша сумма:',a);end;
If (a>=1000)and(a<=5000) then begin
s:=(a/100)*95;
writeln('Ваша скидка 5%');
writeln('Ваша сумма:',s);end;
If a>5000 then begin
s:=(a/100)*90;
writeln('Ваша скидка 10%');<span>
writeln('Ваша сумма:',s);end;
</span>End.