сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( СДЕЛАТЬ ПРОГРАММУ!!!)
Answers & Comments
hhh54
Program DZ; var a:real; begin read (a); if a>1000 then begin a:=a-a/100*15; write (a:0:3); end else write ('скидка не предоставляется'); end.
Answers & Comments
var a:real;
begin
read (a);
if a>1000 then
begin
a:=a-a/100*15;
write (a:0:3);
end
else write ('скидка не предоставляется');
end.