Предмет: Информатика,
автор: Vinifull
Ребят,вот инфу задали,я чет не программист,помогите пжлст))
Приложения:
![](https://files.topotvet.com/i/383/38330901e6de724e6a119d3cffd076bc.jpeg)
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: kefirmansur
Предмет: Английский язык,
автор: kvigarkul385
Предмет: Алгебра,
автор: YaRoman
Предмет: Математика,
автор: viktoria180505