Некоторое устройство передаёт в секунду один из семи сигналов сколько различных сообщений длиной в 3 с можно передать при этого устройства

3

7в третьей степени будет равно 343 ответ 343

Var   s: string;   i,j,k,p,min,n: integer; begin   write('введите предложение: '); readln(s);   s: =s+' ';   n: =length(s);   min: =n;   j: =0;   for i: =1 to n do       if s[i]=' ' then begin           k: =i-j-1;           if min> k then begin min: =k; p: =j+1 end;           j: =i;       end; writeln(min,' ',copy(s,p,min)) end.  

Var    s,q: string;   i,n,j,m,k,l: longint; begin  readln(s);   m: =maxlongint;     s: =' '+s+' ';     for i: =1 to length(s) do  if s[i]< > ' ' then      begin    if s[i-1]=' ' then l: =i;           if s[i+1]=' ' then    begin       if m> length(copy(s,l,i-l+1)) then          begin              q: =copy(s,l,i-l+1);               m: =length(q);       end;         end;     end;   writeln(q); {слово}   writeln(m); {кол. букв}  end.