сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( Сделать программу !!!!) НА ЯЗЫКЕ ПАСКАЛЬ !!!
Answers & Comments
antikostya
Var a:real; begin write('Сумма покупки = '); readln(a); if a>1000 then writeln('Сумма покупки с учётом скидки = ',a*0.85:5:2) else writeln('Скидка не предоставляется'); end.
Answers & Comments
begin
write('Сумма покупки = ');
readln(a);
if a>1000
then writeln('Сумма покупки с учётом скидки = ',a*0.85:5:2)
else writeln('Скидка не предоставляется');
end.
Пример:
Сумма покупки = 1200
Сумма покупки с учётом скидки = 1020.00
Verified answer
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.