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('ЄгЇоа ­(r)¬Ё­ «(r)¬ ў ',nominal_kupyur[i],' ­г¦­(r) - ',kol_kupyur,' ивгЄ.');

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

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.

const
  X: Array [1..7] of Byte = (1, 2, 4, 8, 16, 32, 64);

var
  n, i: Integer;

begin

  write('n = '); readln(n);

  writeln;

  for i := 7 downto 1 do begin

    writeln(X[i], ' : ', n div X[i]);

    n := n - (n div X[i]) * X[i];

  end;
end.
 

Цитата(klem4 @ 27.12.2006 18:07)

Цитата(Michael_Rybak @ 27.12.2006 18:13)

uses crt;
var n,s,x:longint;
begin
clrscr;
readln (x);
for n:=x to x+10 do begin
x:=n; s:=1; write ('x=',x,'= ');
while s<64 do begin
if x and 1=1 then write (s,',');
x:=x shr 1; s:=s*2;
end;
if x>0 then write (x,'x',64,';');
writeln; end;
end.

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 постоянно ...
))))

Цитата(klem4 @ 27.12.2006 18:07)

...
    n := n - (n div X[i]) * X[i];
...

n := n mod X[i];