Объяснение:
1. Пронумеруем разряды:
3-й разряд - 4;
2-й разряд - 1;
1-й разряд - 5;
0-й разряд - 3.
4153₈=4·8³+1·8²+5·8¹+3·8⁰
2. 4153₈=4·8³+1·8²+5·8¹+3·8⁰=2048+16+40+3=2155₁₀
3. 125/8=15 (5)
15/8=1 (7)
(1)
125₁₀=175₈
4. Пронумеруем разряды:
2-й разряд - A;
1-й разряд - 6;
0-й разряд - E;
A6E₁₆=(10)(6)(14)=10·16²+6·16¹+14·16⁰
5. A6E₁₆=10·16²+6·16¹+14·16⁰=2560+96+14=2670₁₀
6. 350/16=21 (14=E)
21/16=1 (5)
(1)
350₁₀=15E₁₆
7. 247/2=123 (1)
123/2=61 (1)
61/2=30 (1)
30/2=15 (0)
15/2=7 (1)
7/2=3 (1)
3/2=1 (1)
(1)
247₁₀=11110111₂
247/8=30 (7)
30/8=3 (6)
(3)
247₁₀=367₈
247/16=7 (15=F)
(7)
247₁₀=7F₁₆
Получившиеся числа между собой равны, так как имеют одинаковое число в десятичной системе счисления.
var
M: array [1..9] of integer;
sum, i: integer;
begin
writeln('Massiv:');
Randomize;
for i:=1 to 9 do
begin
M[i]:=random(200)-100;
write(M[i], ' ');
end;
writeln;
for i:=1 to 9 do
begin
if M[i] > 0 then write(i, ' ');
sum:=sum+M[i];
end;
writeln;
writeln('Summa = ', sum);
readln;
end.
задача 2
var
A: array [1..7] of integer;
sum, i: integer;
begin
writeln('Massiv:');
Randomize;
for i:=1 to 7 do
begin
A[i]:=random(20)-10;
write(A[i], ' ');
end;
writeln;
for i:=1 to 7 do
begin
if A[i] > 3 then sum:=sum+A[i];
if i mod 2 <> 0 then write(A[i], ' ');
end;
writeln;
writeln('Summa = ', sum);
readln;
end.