Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести **...

Question

Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется СДЕЛАТЬ БЛОК-СХЕМУ , АЛГОРИТМ , ПРОГРАММУ !!!!

Comments

а алгоритм не знаешь ?

---

Вам в какой форме?

Answer 1

Код Pascal:

Var
   A:integer;
Begin
Write('A = ');ReadLn(A);
if A > 1000 then WriteLn(A*0.85:0:2)
else WriteLn('Скидка не предоставляется');
End.

---

Comments

а алгоритм не знаешь ?