Болашақта адам мен роботтың өзара қарым-қатынас жасауының белгілі бір этикалық ережелері пайда болуы мүмкін бе? Өздеріңнің
этикалық ережелеріңді ұсыныңдар.

количество используемых знаков для шифровки 2 (· и -)
с знака можно зашифровать 2 сигнала, а именно: · и -
с знаков можно зашифровать 4=2² сигнала, а именно: · ·, · -, - · и - -
с знаков можно зашифровать 8=2³ сигнала, а именно: · · ·, · · -,
· - ·, - · ·, - - ·, - · -, · - - и - - -
с знаков можно зашифровать 16=2^4 сигнала, а именно: · · · ·,
· · · -, · · - ·, · · - -, · - · ·, · - · -, · - - ·, · - - -, - · · ·, - · · -, - · - ·, - · - -, - - · ·, - - · -,
- - - · и, наконец, - - - -

для нахождения количества символов, закодированных с точки и тире длиной не менее (два и более) двух и не более четырех (четыре и менее) сигналов, необходимо сложить возможные варианты их:
2²+2³+2^4=4+8+16=28

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -