Uses crt;
Var A:array[1..10]of integer;
q,w,i,k,j:integer;
begin
randomize;
for q:= 1 to 10 do
begin
A[q] := random(256);
write(A[q]:4)
end;
for i := 1 to 9 do
for j := 1 to 10 - i do
if A[j] > A[j + 1] then begin
k := A[j];
A[j] := A[j + 1];
A[j + 1] := k;
end;
for i:=1 to 10 do
w:=(A[1]+A[10])/2;
write(w)
Var
n:integer;
i,j,k:byte;
a:array[1..3] of byte;
begin
Write('Введите натуральное трехзначное число: ');
Read(n);
for i:=1 to 3 do
begin
a[i]:=n mod 10;
n:=n div 10
end;
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
if a[i]<>0 then Write(a[i],a[j],a[k],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное трехзначное число: 307
777 770 773 707 700 703 737 730 733 377 370 373 307 300 303 337 330 333
Чтобы перевести десятичное число в 2-чную систему, нужно это число последовательно делить на 2 с остатком. Например, переведём 83.
Делим
83 : 2 = 41 (остаток 1)
41 : 2 = 20 (остаток 1)
20 : 2 = 10 (остаток 0)
10 : 2 = 5 (остаток 0)
5 : 2 = 2 (остаток 1)
2 : 2 = 1 (остаток 0)
Теперь выписываем последний результат деления (у нас это 1) и после него все остатки в обратном порядке: 0 1 0 0 1 1
Получается число 1010011
Проверяем:
![1010011_{2} = 1*2^{6}+0*2^{5}+1*2^{4}+0*2^{3}+0*2^{2}+1*2^{1}+1*2^{0}=1*64+0*32+1*16+0*8+0*4+1*2+1*1=64+0+16+0+0+2+1=83_{10}](https://tex.z-dn.net/?f=1010011_%7B2%7D+%3D+1%2A2%5E%7B6%7D%2B0%2A2%5E%7B5%7D%2B1%2A2%5E%7B4%7D%2B0%2A2%5E%7B3%7D%2B0%2A2%5E%7B2%7D%2B1%2A2%5E%7B1%7D%2B1%2A2%5E%7B0%7D%3D1%2A64%2B0%2A32%2B1%2A16%2B0%2A8%2B0%2A4%2B1%2A2%2B1%2A1%3D64%2B0%2B16%2B0%2B0%2B2%2B1%3D83_%7B10%7D)
10 битов, 20 битов, 2 байта, 1 кбайт, 1010 байтов.