Написать программу ** паскале и нарисовать блок схему. Стоимости покупки с учетом скидки...

Question

Написать программу на паскале и нарисовать блок схему. Стоимости покупки с учетом скидки в 10%, если сумма покупки больше 1000 рублей
Сумма покупки 1200 со скидкой 1090

Comments

1200 - скидка 10% = 1080

Answer 1

Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s); 
end.

Пример:
s=1200
S=1020

Блок-схема - в прилагаемом файле

---