Запишем умножение "в столбик".
11
x 11
----------
11
+ 11
---------
1001
Видно, что во втором справа разряде 1+1 дает в результате 0, т.е. значение, меньшее, чем любое из слагаемых. Такое возможно только если сумма равна или превышает основание системы счисления. В частности, ноль получается тогда, когда сумма точно равна основанию системы счисления. Но мы знаем, что 1+1=2, следовательно система счисления - двоичная.
' Basic
Dim x as Double
print "Введите x = ";
input x
print "Sum of x + y = "; (0.53*sin(log(2*x)))
Const
K = 3;
N = 4;
Var
A:array[1..K,1..N] of integer;
Max,Min,i,j:integer;
Begin
For i:= 1 to K do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
Max:=A[K,N];
Min:=A[K,N];
For i:= 1 to K do
For j:= 1 to N do
Begin
if Max<A[i,j] then Max:=A[i,j];
if Min>A[i,j] then Min:=A[i,j]
End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.
Пример:
-3 -2 5 -8
2 -3 7 5
-10 -2 7 4
Min = -10
Max = 7
Hex состоит из трех двусимвольных значений
в шестнадцатеричной системе счисления. Например: #ff00b3, где первая
пара чисел - красный, вторая - зеленый, а третья - синий.