Question

Напишите программу для решения задачи в Pascal Для приготовления молочного коктейля взяли: 1 л молока, 200 г мороженого, 40 г мёда, 100 г крепкого кофе. 1 порция коктейля Х г. Сколько порций получится из исходных продуктов?

Answer 1

===== PascalABC.NET =====

begin

 var молоко := 1030;

 var мороженое := 200;

 var мед := 40;

 var кофе := 100;

 var ОбщийВес := молоко + мороженое + мед + кофе;

 var ВесПорции := ReadInteger('Вес порции:');

 Println('Получится порций:', Trunc(ОбщийВес / ВесПорции))

end.

Answer 2

Конечно, вот пример программы на языке Pascal, который решает данную задачу:

pascalCopy code
program MilkshakeCalculator;

var
  Milk, IceCream, Honey, Coffee, Portion: Real;
  NumberOfPortions: Integer;

begin
  Milk := 1.0; // л молока
  IceCream := 200.0; // г мороженого
  Honey := 40.0; // г мёда
  Coffee := 100.0; // г крепкого кофе

  writeln('Введите вес одной порции коктейля (в граммах): ');
  readln(Portion);

  // Определяем, сколько порций можно приготовить из исходных продуктов
  NumberOfPortions := Trunc(Min(Min(Milk * 1000 / Portion, IceCream / Portion), Min(Honey / Portion, Coffee / Portion)));

  writeln('Из исходных продуктов можно приготовить ', NumberOfPortions, ' порций коктейля.');
end.

Программа запрашивает вес одной порции коктейля и на основе этого определяет, сколько порций можно приготовить из предоставленных исходных продуктов. Результат выводится на экран.