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

[Димас]

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

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

Задача 537

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


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

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

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

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

[Димас]

Всё написал и решил эту задачку:-)
воть:

 
Program Z537;
uses crt;
var nominal_kupyur:array[1..7] of integer;
    i,suma,kol_kupyur:integer;
begin
     ClrScr;
    {----------------------}
     nominal_kupyur[1]:=  1;
     nominal_kupyur[2]:=  2;
     nominal_kupyur[3]:=  4;
     nominal_kupyur[4]:=  8;
     nominal_kupyur[5]:= 16;
     nominal_kupyur[6]:= 32;
     nominal_kupyur[7]:= 64;
   Textcolor(4);
     writeln('Введите суму ');
     readln(suma);

     {-------------------------------------------------------}
     for i:=High(nominal_kupyur) downto low(nominal_kupyur) do
     begin
         kol_kupyur:=suma div nominal_kupyur[i];
         suma:=suma mod nominal_kupyur[i];
      Textcolor(2);

         if kol_kupyur<>0 then
         writeln('ЄгЇоа ­®¬Ё­ «®¬ ў ',nominal_kupyur[i],' ­г¦­® - ',kol_kupyur,' ивгЄ.');

     end;
     {-------------------------------------------------------}
     writeln;
     write('End');
     readln;
end.

[Malice]

Красиво, но я бы по 1-му варианту пошел, типа:

var s,x:longint;
begin
{readln (x);} X:=64*3+8+4+32; s:=1;
while s<64 do begin
if x and 1=1 then writeln ('1 po ',s);
x:=x shr 1; s:=s*2;
end;
if x>0 then writeln (x,' po ',64);
end.