сумма покупки сочиняет а-рублей, если аamp;gt;1000 то предоставляется скидка 15% вывести

Сумма покупки сочиняет а-рублей, если аgt;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.
2 ответа
Var a:real;
begin
write('Сумма покупки = ');
readln(a);
if agt;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 agt;1000 then
writeln(a*0.75);
else
writeln('skidki net');
end.
Саша
не 0,75 а 0,85
Милана
после then при одной операции в условном операторе после операции ; не ставится
Маргарита
нарекать прогу можно одним словом
Стефания Екатерининская
я больше по питону и нередко путаю синтаксис в главном знаки препинания
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт