Var a:real; begin; Writeln('Вычисление стоимости покупки с учётом скидки.'); Writeln('Введите сумму покупки и нажмите Enter'); Readln(a); if (a>500) and (a<1000) then begin; writeln('Вам предоставляется скидка 3%'); a:=a/100*97; end; if a>1000 then begin; writeln('Вам предоставляется скидка 5%'); a:=a/100*95; end; Writeln('Сумма покупки с учётом скидки:',a,'руб'); end.
Answers & Comments
Verified answer
Var a:real;begin;
Writeln('Вычисление стоимости покупки с учётом скидки.');
Writeln('Введите сумму покупки и нажмите Enter');
Readln(a);
if (a>500) and (a<1000) then
begin;
writeln('Вам предоставляется скидка 3%');
a:=a/100*97;
end;
if a>1000 then
begin;
writeln('Вам предоставляется скидка 5%');
a:=a/100*95;
end;
Writeln('Сумма покупки с учётом скидки:',a,'руб');
end.