Определить количество коробок для упаковки конфет - Turbo Pascal
Формулировка задачи:
Для комплектования новогодних подарков университет приобрел на кондитерской фабрике 820 кг конфет. Конфеты были упакованы в 100 коробок трех видов, вместимость которых составляла 6, 9 и 13 кг. Сколько коробок каждого вида было использовано? Сколько различных решений имеет данная задача? Найдите и укажите все возможные решения.
Решение задачи: «Определить количество коробок для упаковки конфет»
textual
Листинг программы
Program Podarki;
Uses Crt;
Var i,j,k,n : integer;
begin
Clrscr;
n := 0;
for i := 1 to (820 div 6) do
for j := 1 to (820 div 9) do
for k := 1 to (820 div 13) do
if (6*i + 9*j + 13*k = 820) and (i + j + k = 100) then
Begin
n := n + 1;
Writeln(i,'x6 + ',j,'x9 + ',k,'x13 = 820');
End;
Writeln('Vsego ',n,' variantov');
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д