Question

сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( Сделать программу !!!!) НА ЯЗЫКЕ ПАСКАЛЬ !!!

Answer 1

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.

Answer 2

не 0,75 а 0,85

Answer 3

после then при одной операции в условном операторе после операции ; не ставится

Answer 4

называть прогу можно одним словом

Answer 5

я больше по питону и часто путаю синтаксис в основном знаки препинания

Answer 6

var a:real;
begin
write('Сумма покупки = ');
readln(a);
if a>1000
 then writeln('Сумма покупки с учётом скидки = ',a*0.85:5:2)
 else writeln('Скидка не предоставляется');
end.

Пример:
Сумма покупки = 1200
Сумма покупки с учётом скидки = 1020.00