При покупке свыше 5000 рублей дает скидку 20% составить задачу паскаль

Question

Информатика

Липа

27 мая, 01:49

При покупке свыше 5000 рублей дает скидку 20% составить задачу паскаль

+4

Ответы (1)

Знаете ответ на вопрос?

Феликс · Answer 1

Var s:real;

begin

write ('Стоимость покупки = ') ;

readln (s) ;

if s>5000

then writeln ('Стоимость покупки со скидкой = ', s*0.8:5:2)

else writeln ('Скидка не предоставляется. Стоимость = ', s:5:2) ;

end.

Пример:

Стоимость покупки = 6000

Стоимость покупки со скидкой = 4800.00