Девочка клава любит конфеты, но старается следить за весом. ей подарили коробку в которой n конфет, каждая конфета содержит k калорий. каждые s калорий увеличивают вес на 1 кг. клава хочет съесть m конфет и может себе позволить поправиться на r килограмм. сможет ли она получить удовольствие и не расстроиться? решить в паскале.
Имеются два условия.
Первое - желание Клавы съесть 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Клаве повезло!