Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Хозяин киоска Рустам поехал на...

Хозяин киоска Рустам поехал на... - вопрос №981901

Составить программу на Паскале для решения следующей задачи: хозяин киоска Рустам поехал на оптово-торговочную базу за товаром. На базе имеется товар в ящиках по 16, 17 и 21 килограмм. Найдите, сколько существует способов взять ровно 485 килограмм товара, не вскрывая ящиков.

СветланаСеребряный
11.03.14
Учеба и наука / Информатика
2 ответа
program
for while

Лучший ответ по мнению автора

Рейтинг: 1 049

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.

 
13.03.14
Лучший ответ по мнению автора

Другие ответы

Рейтинг: 1 049

Обращайтесь в чат, помогу.
09.03.14

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее