Написать программу в PASCAL начисления скидок: если сумма покупки > 100, то скидка 10%. Если меньше или равна 100, то скидка 5%

Вопрос школьника по предмету Информатика

Написать программу в PASCAL начисления скидок: если сумма покупки > 100, то скидка 10%. Если меньше или равна 100, то скидка 5%

Ответ учителя по предмету Информатика

var s:real;

begin

write(‘Сумма покупки = ‘);

readln(s);

if s>100 then writeln(‘Скидка = ‘,s*0.1)

else writeln(‘Скидка = ‘,s*0.05);

end.

Пример:

Сумма покупки = 200

Скидка = 20