Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( Сделать программу !!!!) НА ЯЗЫКЕ ПАСКАЛЬ !!!
2 комментария:
если скидки нет то сумму выводить?
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.
если скидки нет то сумму выводить?
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. Ответы
Гость 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.
4 комментария:
не 0,75 а 0,85
после then при одной операции в условном операторе после операции ; не ставится
называть прогу можно одним словом
я больше по питону и часто путаю синтаксис в основном знаки препинания
не 0,75 а 0,85
после then при одной операции в условном операторе после операции ; не ставится
называть прогу можно одним словом
я больше по питону и часто путаю синтаксис в основном знаки препинания Список предметов
