<span>В уме малость сложновато, на бумаге - проще. Каждая цифра в 16-ричной системе - это тетрада (4 бита) . Записываем все цифры числа подряд в двоичной системе (0=0000,1=0001,...9=1001,A=1010,B=1011,...F=1111). А потом группируем полученную последовательность бит триадами, по 3 бита, начиная справа (с младших бит) . И записываем то, что получилось, 8-ричными цифрами (000=0,001=1,...111=7). Для обратного перевода все делаем наоборот - записываем битовые триады и группируем их в тетрады. </span>
Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
2 3 5 3 10 7 4 6 12 9 2 1 4 3 7 7 4 2 10 9 24
var s, n,sum,sum1,p,i:integer; sr:real;A:Array[1..10] of integer;BeginA[1]:=2;A[2]:=3;A[3]:=5;A[4]:=3;A[5]:=10;A[6]:=7;A[7]:=4;A[8]:=6;A[9]:=12;A[10]:=9;n:=10;s:=0;for i:=1 to n do write(A[i]:3);writeln;for i:=2 to n do beginif A[i-1] < A[i] then beginA[i]:= A[i] - A[i -1];s:= s + A[i];end;end;for i:=1 to n do write(A[i]:3);writeln;write(s:3);end.
Зайти на сайт хостингер . или же через denver . Смотря для каких целей