Учеба и наука
Решено
vip
Хозяин киоска Рустам поехал на... - вопрос №981901
Составить программу на Паскале для решения следующей задачи: хозяин киоска Рустам поехал на оптово-торговочную базу за товаром. На базе имеется товар в ящиках по 16, 17 и 21 килограмм. Найдите, сколько существует способов взять ровно 485 килограмм товара, не вскрывая ящиков.
март 11, 2014 г.
-
Всего ответов: 2
-
Обращайтесь в чат, помогу.
-
var a, b, c, i, j, z, x, y: integer;
Begin
a:=485 div 16;
b:=485 div 17;
c:=485 div 21;
y:=0;
for i:=0 to a do
begin
for j:=0 to b do
begin
for z:=0 to c do
begin
x:=16*i+17*j+21*z;
if x=485 then y:=y+1;
end;
end;
end;
write(y);
end.
Лучший ответ по мнению автора
Похожие вопросы