синтаксис некоторого простого языка программирования описан с следующих металингвистических формул

105₁₀ = 1101001₂ = 69₁₆

61₁₀ = 111101₂ = 3D₁₆

156₁₀ = 10011100₂ = 9С₁₆

Объяснение:

105 / 2 = 52 + остаток 1

52 / 2 = 26 + остаток 0

26 / 2 = 13 + остаток 0

13 / 2 = 6 + остаток 1

6 / 2 = 3 + остаток 0

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

105₁₀ = 1101001₂

105 / 16 = 6 + остаток 9

6 / 16 = 0 + остаток 6

записываем снизу вверх

105₁₀ = 69₁₆

111101₂ = 1 * 2⁵ + 1 * 2⁴ + 1 * 2³ + 1 * 2² + 0 * 2¹ + 1 * 2⁰ = 1 * 32 + 1 * 16 + 1 * 8 + 1 * 4 + 0 * 2 + 1 * 1 = 32 + 16 +8 + 4 + 1 = 61₁₀

61 / 16 = 3 + остаток 13

3 / 16 = 0 + остаток 3

записываем снизу вверх

61₁₀ = 3D₁₆

9С₁₆ = 9 * 16¹ + С * 16⁰ = 9 * 16 + 12 * 1 = 144 + 12 = 156₁₀

156 / 2 = 78 + остаток 0

78 / 2 = 39 + остаток 0

39 / 2 = 19 + остаток 1

19 / 2 = 9 + остаток 1

9 / 2 = 4 + остаток 1

4 / 2 = 2 + остаток 0

2 / 2 = 1 + остаток 0

1 / 2 = 0 + остаток 1

записываем снизу вверх

156₁₀ = 10011100₂

В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.

A₁₆ = 10₁₀   B₁₆ = 11₁₀   C₁₆ = 12₁₀   D₁₆ = 13₁₀   E₁₆ = 14₁₀   F₁₆ = 15₁₀  

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.