Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Ребят,вот инфу задали,я чет не программист,помогите пжлст))

Ответ оставил Гость

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.