3. Дана программа. Какой результат будет иметь программа
на выходе, если nomer = 6?​

Вычитание выполнено в шестеричной системе счисления.

Объяснение:

Мы видим в данном выражении цифры до 4. Из этого следует, что система счисления использует не менее 5 цифр. То есть, она как минимум - пятиричная. Будем подбирать по порядку системы счисления и вычислять их значения.

Пятиричная система счисления:

1. Переводим в десятичную систему счисления:

102 = 25 * 1 + 5 * 0 + 1 * 2 = 25 + 0 + 2 = 27

14 = 5 * 1 + 1 * 4 = 5 + 4 = 9

2. Вычисляем в десятичной системе счисления:

27 - 9 = 18

3. Переводим в пятиричную систему счисления:

18 = 33

Вывод: данная система счисления не подходит.

Шестеричная система счисления:

1. Переводим в десятичную систему счисления:

102 = 36 * 1 + 6 * 0 + 1 * 2 = 36 + 0 + 2 = 38

14 = 6 * 1 + 1 * 4 = 6 + 4 = 10

2. Вычисляем в десятичной системе счисления:

38 - 10 = 28

3. Переводим в шестеричную систему счисления:

28 = 44

Вывод: данная система счисления подходит.

УДАЧИ! ОБРАЩАЙТЕСЬ!

Var  
i, j, k : integer; 
 a : array [0..9,0..9] of char; 
procedure U(i,j:integer);  
var c : char; 
begin 
 c:=a[i,j]; a[i,j]:=' ';  
if (c='W')and(a[i+1,j]='B') then U(i+1,j);
  if (c='B')and(a[i+1,j]='W') then U(i+1,j); 
 if (c='W')and(a[i-1,j]='B') then U(i-1,j); 
 if (c='B')and(a[i-1,j]='W') then U(i-1,j); 
 if (c='W')and(a[i,j+1]='B') then U(i,j+1);  
if (c='B')and(a[i,j+1]='W') then U(i,j+1); 
 if (c='W')and(a[i,j-1]='B') then U(i,j-1); 
 if (c='B')and(a[i,j-1]='W') then U(i,j-1); 
end; 
begin  
assign(input,'input.txt');
reset(input); 
 assign(output,'output.txt');
 rewrite(output);  
for i:=1 to 8 do begin  for j:=1 to 8 do
 read(a[i,j]); 
 readln  
end;  
for i:=1 to 8 do
 begin 
 a[0,i]:=' '; a[9,i]:=' ';  a[i,0]:=' '; a[i,9]:=' '  
end; 
 k:=0; 
 for i:=1 to 8 do 
 for j:=1 to 8 do 
 if a[i,j]<>' ' then
begin 
 k:=k+1; U(i,j)  
end;  
write(k); 
 close(output) 
end.