Напишите программу вычисления итоговой суммы покупки с учетом скидки. Скидка в размере 7 % начисляется, если сумма покупки более 5000 руб. Сумма покупки вводится пользователем с клавиатуры. Результат работы программы вводится на экран

Question

Информатика

Лидуха

28 марта, 01:38

Напишите программу вычисления итоговой суммы покупки с учетом скидки. Скидка в размере 7 % начисляется, если сумма покупки более 5000 руб. Сумма покупки вводится пользователем с клавиатуры. Результат работы программы вводится на экран

+3

Ответы (1)

Знаете ответ?

Гуня · Answer 1

Если я тебя правильно понял:

var

a, f: real;

begin

readln (a) ;

if a > = 5000 then

begin

f : = a - (0.07 * a) ;

writeln (f) ;

end

else

if a < 5000 then

writeln (a) ;

end.