Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( Сделать программу !!!!) НА ЯЗЫКЕ ПАСКАЛЬ !!!
если скидки нет то сумму выводить?
program magaz;var a:integer; amount:real;begin readln(a); if a > 1000 then begin amount:=a-(a*15/100); writeln(amount); end else begin amount:=a; writeln('Скидка не предоставляется'); end;end.
Var a:real; begin write('Сумма покупки = '); readln(a); if a>1000 then writeln('Сумма покупки с учётом скидки = ',a*0.85:5:2) else writeln('Скидка не предоставляется'); end. Пример: Сумма покупки = 1200 Сумма покупки с учётом скидки = 1020.00
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.
не 0,75 а 0,85
после then при одной операции в условном операторе после операции ; не ставится
называть прогу можно одним словом
я больше по питону и часто путаю синтаксис в основном знаки препинания