Технический форум - Вводится строка. Определить количество слов

Цитата:

Сообщение от lalka (Сообщение 1040017)

Вводится строка. Определить количество слов, равный по длине первому слову.

Код:

Const

 C=['a'..'z']+['A'..'Z']+['а'..'я']+['А'..'Я']+['0'..'9'];

Var

 S:String;

 W:Array[1..128] of String;

 L,L1,i,j,n:byte;

Begin

 Writeln('Enter the string:');

 Readln(S);

 L:=Length(S);

 i:=0;

 j:=1;

 Repeat

  Inc(i);

 Until S[i] in C;

 W[1]:='';

 While S[i] in C do

  begin

   W[1]:=W[1]+S[i];

   Inc(i);

  end;

 L1:=Length(W[1]);

 Repeat

  while not (S[i] in C) do Inc(i);

  Inc(j);

  W[j]:='';

  while (i<=L) and (S[i] in C) do

   begin

    W[j]:=W[j]+S[i];

    Inc(i);

   end;

 Until i>L;

 n:=0;

 for i:=2 to j do

  if Length(W[i])=L1 then Inc(n);

 writeln('n= ',n);

 readln

End.