Question

Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( Сделать программу !!!!) НА ЯЗЫКЕ ПАСКАЛЬ !!!

Answer 1

Var a:real;
begin
write('Сумма покупки = ');
readln(a);
if a>1000
 then writeln('Сумма покупки с учётом скидки = ',a*0.85:5:2)
 else writeln('Скидка не предоставляется');
end.

Пример:
Сумма покупки = 1200
Сумма покупки с учётом скидки = 1020.00

Answer 2

Program ti tupoy eto je legko;
var a :integer;
begin
read(a);
if a>1000 then
writeln(a*0.75);
else
writeln('skidki net');
end.