1)
23 + 75 =
Сложить 3+5 = 10 - 0 пишем, 1 десяток запоминаем
7 + 2 = 11 , 1 запоминали значит 11+1=12
ответ: 23 + 75=120
120 из 8 системы переведем в двоичную:
120 переведем в 10 систему счисления:
120 = 1*8^2 + 2*8^1 + 0*8^0 = 64 + 16 +0 = 80
80 переведем из десятичной в двоичную:
80/2=40 ост 0
40/2=20 ост 0
20/2=10 ост 0
10/2=5 ост 0
5/2=2 ост 1
2/2=1 ост 0
число 120(8) = 1010000(2)
2 задание:
14 + 3В = 4F(16)
4F = 4*16^1 + F*16^0 = 64 + 15 = 79 - в десятичной системе счисления
Переведем в 2 систему:
79/2 = 39 ост 1
39/2 = 19 ост 1
19/2=9 ост 1
9/2=4 ост1
4/2=2 ост 0
2/2=1 ост 0
4F(16) = 1001111(2)
Дано:
N1 = 256 цветов
N2 = 65536 цветов
Найти:
V1<V2 во сколько раз
1) N1 = 2^i1
256 = 2^8
i1 = 8 бит глубина кодирования 1 пикселя, если использовать палитру 256 цветов
2) N2 = 2^i2
65536 = 2^16
i2 = 16 бит глубина кодирования 1 пикселя, если использовать палитру 65536 цветов
3) пусть S - количество пикселей в изображении - оно одинаково для обеих палитр (по условию задачи рисунок был один и тот же)
тогда
V1 = S * i1, следовательно S = V1 / i1
V2 = S * i2, следовательно S = V2 / i2
V1/i1 = V2/i2
V1/8 = V2/16
V2 * 8 = V1 * 16
Делим обе части на 8
V2 = 2*V1
Значит V2 > V1 в два раза
ответ: информационный объем файла увеличился в два раза.
Var a:array[1..50] of byte;
n,p, i,k,m,j,x,y,z: integer;
begin
writeln('Введите количество элементов');
readln(p);
repeat; - обратите внимание, что Вы написали repead, хотя нужно repeat.
n:=4;
for i:=n downto 1 do begin
a[i]:=p mod 10;
p:= p div 10;
end;
For i:=1 To n-1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] >= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
x:=a[1]*1000+a[2]*100+a[3]*10+a[4];
For i := 1 To N - 1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] <= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
y:=a[1]*1000+a[2]*100+a[3]*10+a[4];
z:=x-y;
until z=p;
writeln(z);
end.