Question

Девочка клава очень любит конфеты, но старается следить за весом. Ей подарили коробку в которой N конфет, каждая конфета содержит K калорий. Каждые S калорий увеличивают вес на 1 кг. Клава хочет съесть M конфет и может себе позволить поправиться на R килограмм. Сможет ли она получить удовольствие и не расстроиться?

Помогите решить в Паскале.

Answer 1

Имеются два условия.

Первое - желание Клавы съесть M конфет. M ≤ N, иначе конфет просто не хватит.

Второе - не поправиться больше чем на R кг. Если съесть М конфет, то они в сумме дадут M×K калорий и это приведет к увеличению веса  на M×K/S кг. Желание Клавы определяется условием M×K/S ≤ R

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var N, M, K: integer;

 var S, R: real;

 Read(N, K, S, R, M); // порядок ввода именно тут

 if M > N then Print('В коробке недостаточно конфет')

 else

 if M * K / S <= R then Print('Клаве повезло!')

 else Print('Клава будет расстроена')

end.

Пример:

18 2400 8600 1.5 5

Клаве повезло!