Составить по функциональной схеме соответствующую структурную формулу

Не совсем верно, но очень близко.

uses crt;

const nmax=100;

var a:array[1..nmax] of integer;

n,i,j,k:byte;

begin

clrscr;

repeat

write('Размер массива до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('Введите элементы массива:');

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

clrscr;

writeln('Массив:');

for i:=1 to n do

write(a[i]:4);

writeln;

writeln;

k:=0;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]=a[i] then k:=k+1;

if k=1 then write('В массиве только 2 одинаковых элемента')

else write('В массиве не 2 одинаковых элемента');

readln

end.

Объяснение:

8288A7F₁₆

Объяснение:

1 - черная клетка;

0 - белая клетка.

Начиная с левого верхнего угла начнем кодировать клетки, двигаясь в верхнем ряду слева направо, в следующем в обратную сторону (т.е. справа налево) и так до конца.

Будет получен код в двоичной системе:

1000001010001000101001111111

Переведем в десятичную систему:

1000001010001000101001111111₂ =

= 1∙2²⁷+0∙2²⁶+0∙2²⁵+0∙2²⁴+0∙2²³+0∙2²²+1∙2²¹+0∙2²⁰+1∙2¹⁹+

+0∙2¹⁸+0∙2¹⁷+0∙2¹⁶+1∙2¹⁵+0∙2¹⁴+0∙2¹³+0∙2¹²+1∙2¹¹+0∙2¹⁰+

+1∙2⁹+0∙2⁸+0∙2⁷+1∙2⁶+1∙2⁵+1∙2⁴+1∙2³+1∙2²+1∙2¹+1∙2⁰ =

= 134217728+0+0+0+0+0+2097152+0+524288+0+0+0+

+32768+0+0+0+2048+0+512+0+0+64+32+16+8+4+2+1 =

= 136874623₁₀

136874623₁₀ переведем в шестнадцатиричную систему:

136874623₁₀ = 8288A7F₁₆

Перевод из десятичной системы в шестнадцатеричную подробнее на фото.