Var m : array[0..6] of Integer; i,k,N : Integer; Begin For i:=0 to 6 do m[i]:=0; Readln(N); k:=6; While N>0 do Begin If N>=Power(2,k) then Begin N:=N-Trunc(Power(2,k)); Inc(m[k]); end else Dec(k); end; For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.'); end.
Еще вариант: Const NN = 7; money : array[1..7] of Integer = (1,2,4,8,16,32,64); Var m : array[1..NN] of Integer; i,k,N : Integer; Begin For i:=1 to NN do m[i]:=0; Readln(N); k:=NN; While N>0 do Begin If N>=money[k] then Begin N:=N-money[k]; Inc(m[k]); end else Dec(k); end; For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.'); end.
Если СС системы счисления, то:
Двоичная:
126 = 1111110
Переводим целую часть 12610 в 2-ую систему последовательным делением на 2:
126/2 = 63, остаток: 0
63/2 = 31, остаток: 1
31/2 = 15, остаток: 1
15/2 = 7, остаток: 1
7/2 = 3, остаток: 1
3/2 = 1, остаток: 1
1/2 = 0, остаток: 1
126 = 1111110
Обратно:
Переводим 1111110 в десятичную систему:
1111110 = 1·2⁶+1·2⁵+1·2⁴+1·2³+1·2²+1·2¹+0·1 = 126
Восьмеричная:
126 = 176
Переводим целую часть 126 в 8-ую систему последовательным делением на 8:
126/8 = 15, остаток: 6
15/8 = 1, остаток: 7
1/8 = 0, остаток: 1
126 = 176
Обратно:
Переводим 1768 в десятичную систему:
176 = 1·8²+7·8¹+6·1 = 126
Шестнадцатиричная:
126 = 7E
Переводим целую часть 126 в 16-ую систему последовательным делением на 16:
126/16 = 7, остаток: 14, 14 = E
7/16 = 0, остаток: 7
126 = 7E
Обратно:
Переводим 7E в десятичную систему:
7E = 7·16¹+14·1 = 126
Как-то так)
i,k,N : Integer;
Begin
For i:=0 to 6 do m[i]:=0;
Readln(N);
k:=6;
While N>0 do
Begin
If N>=Power(2,k) then
Begin
N:=N-Trunc(Power(2,k));
Inc(m[k]);
end else Dec(k);
end;
For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.');
end.
Еще вариант:
Const
NN = 7;
money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
i,k,N : Integer;
Begin
For i:=1 to NN do m[i]:=0;
Readln(N);
k:=NN;
While N>0 do
Begin
If N>=money[k] then
Begin
N:=N-money[k];
Inc(m[k]);
end else Dec(k);
end;
For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.');
end.