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

Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб. (Pascal)

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

program zadacha;
var
a:integer;
b:real;
begin
writeln(введите сумму покупки);
readln(a);
b:=a;
if a>500 then b:=a/1.03;
if a>1000 then b:=a/1.05;
writeln(сумма покупки с учетом скидки равна:,b);
readln;
end.