X : = 4 + 8 * 3 ; - то есть x=4+8*3 = 4+24 = 28
y : = ( x mod 10 ) + 15; // mod 10 - остаток от деления на 10. y = (28 mod 10)+15 = 8+15 = 23
<span>x : = ( y div 10 ) + 3 // div - целочисленное деление, (y div 10) + 3 = (28 div 10) + 3 = 2+3 = 5
Сумма переменных равна 23+5 = 28</span>
38 (10cc) =32+4+2=2^5+2^2+2^1=100110 (2cc)
501 | 8
48 |----
----- |62| 8
21 56|--- 501 (10cc) =765 (8cc)
16 ---| 7
---- 6
5
176 (8cc) = 1*8²+7*8+6=126 (10cc)
8579 |16
8576 |------
------- | 536| 16 8579 (10cc) =2183 (16cc)
3 528 |------
------| 33|16
8 32|---
----| 2
1
721 (8cc)=111 010 001 (2cc) = 1 1101 0001 (2cc)= 1D1 (16cc)
167 (8cc) =1 110 111 (2cc) =111 0111=77 (16cc)
AC1 (16cc) =10*16^2+12*16+1 =2753 (10cc)
721 (16cc) =111 0010 0001 (2cc) =11 100 100 001(2cc) =3441 (8cc)
Program n1;
Uses CRT;
Const n=15;
Var A: array[1..n] of integer; B: array[1..n] of integer;
i,k,max: integer;
begin
randomize;
clrscr;
Writeln('ishodny massiv');
For i:=1 to n do
begin
a[i]:=random(100);
a[i]:=a[i]-50;
write(a[i]:4);
end;
writeln;
writeln('polychenny massiv');
max:=0;
For i:=1 to n do
begin
b[i]:=-a[i];
write(b[i]:4);
If a[i]=b[i] then k:=k+1;
If (b[i]>0)and(b[i]>max) then max:=b[i];
If (b[i]<0)and(-b[i]>max) then max:=-b[i];
end;
writeln;
Writeln('Kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max);
writeln
end.
1 бит на 1 цифру числа + по 3 бита на все остальные,
итого 1+3*6=19 бит
Я думаю 3
...........................