Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
1. Переводим в двоичную систему
11000101 11101101 00000000 00000000
2. Первая 1 в старшем байте (
<u>1</u>1000101
) значит число отрицательное.
3. Оставшиеся 7 цифр это порядок числа ( 1000101
- 1000000 = 101) это 5 в десятичной системе.
4.Значит наше число это 11101, 101 в двоичной
5. Переводим в десятичную получаем -29,625
Const m=200;
<span>var a: array[1..m] of integer;
</span><span> i,j,n: integer;
</span><span>begin
</span><span> write('количество элементов массива: ');
</span><span> readln(n);
</span><span> randomize;
</span><span> write('массив: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(40);
</span><span> write(a[i],' ');
</span><span> end;
</span><span> writeln;
</span><span> write('отсортированный массив: ');
</span><span> for i:=1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then swap(a[i],a[j]);
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span><span>
</span>количество элементов массива: 10
<span>массив: 32 2 10 22 2 13 25 6 15 6
</span><span>отсортированный массив: 2 2 6 6 10 13 15 22 25 32
</span><span>
</span>