Question

Покупатель, свершивший покупку на сумму, превышающую число N, получает 7 процентов скидки. Разработать
алгоритм (программу), с помощью которого можно определить получит ли покупатель премиальную скидку и, если
получит, то вычислить сумму оплаты покупки S с учетом скидки, если известно сумма покупки Х и призовая сумма N.
Программа должна иметь дружественный интерфейс.

Answer 1

Program Skidka;
var x,n,s: real;
begin
writeln('Добро пожаловать в наш Супермаркет!');
write('Введите сумму покупки: ');
readln(x);
write('Введите призовую сумму: ');
readln(n);
s:=0;
if (x>n) then begin
s:=x-(x/100*7);
writeln('Вы сделали покупку на сумму ',x,'. Вам полагается скидка ',x/100*7'.');
writeln('К оплате: ',s,'.');
end else writeln('К оплате: ',x,'.');
writeln('Спасибо за покупку!');
readln;
end.