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

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

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

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.