Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10%...

Question

Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб

Answer 1

var a,b:real; beginwriteln('Enter price: '); readln(a); b:=10; b:=a/b; if(a>1000)thenbeginwriteln('Discount 10%'); a:=a-b; write('Price with discount: ',a:2:2); readln; endelsebeginwrite('Price: ',a:2:2); readln; end; end.