Задачи на цыкл..., обясните мне тупому дураку.... Опции

[Димас]

Общем проблемка такая не могу розобратся в задачках......

наведите меня хоть немного на логику... задачи....

Задача 537

В некоторой стране используются денежные купюры достоинством 1,2,4,8,16,32 и 64. Дано натуральное число n. Как наименьшым количеством таких денежных купюр можно выплатить сумы n,n+1...n+10 ? (Указать количество каждой из используемых для выплаты купюр) Предлогается что имееться достоинство большое количество купбр всех достоинств....


я не могу понять логику задачи и смысл... не говоря уже о паскале, как в матиматике это сделать

обясните как задачу делать ПОЖАЛУЙСТА!!!

З.Ы: мисс_граффити , пардон за тот пост в моей первой теме....

Сообщение отредактировано: Димас - 26.12.2006 22:00

[klem4]

Кажется наверное, т.к. там негде..

Ну ты попробовал запустить свою программу с x = 65 ? Я вот щас еще раз попробовал а она еще раз зависла =(((

вот еще вариант:

var
  n, i: LongInt;
  C: Array [0..6] of Integer = (0, 0, 0, 0, 0, 0, 0);

begin
  n := 171;

  for i := 31 downto 0 do
   if ((n shl i) shr 31) = 1 then
    if (31 - i) > 6 then inc(C[6], round(exp((31 - i - 6) * ln(2))))
     else inc(C[31 - i]);

  for i := 0 to 6 do
   writeln(round(exp(i * ln(2))), ' : ', C[i]);
end.

Добавлено:


ГЫ Не удивительно что она виснет, компилятор то перед циклом s обнулил ))) А в цикле s := s * 2 = 0 постоянно ...
))))

[Malice]

ГЫ Не удивительно что она виснет, компилятор то перед циклом s обнулил ))) А в цикле s := s * 2 = 0 постоянно ...
))))

Выкинь свой компилятор , т.к. именно перед циклом стоит s:=1;
и такой вариант:
s:=1; while s<64 do s:=s*2; не может повиснуть ни при каких абстоятельствах..
Конечно я сейчас это проверю, (чем черт не шутит), но в 3-х строчках я ошибаюсь _очень_ редко, так сказать, тренирую мозг ручным компилированием