Обработка строк

[Lakki]

Обработка строк

Дана строка, состоящая из латинских слов, разделенных пробелами. Определить количество слов в строке.

 

[Vladimir_S]

Дана строка, состоящая из латинских слов, разделенных пробелами. Определить количество слов в строке.

Поскольку не совсем понятно, что значит "дана строка" (в каком виде "дана"? содержится в файле? вводится с консоли? пишется в теле программы?) я сделал ввод, исходя из того, что строка содержится в файле по имени sss, находящемся на диске D: . Если надо иначе, переделаете.
В программе отрабатывается ситуация, когда между словами находится не один, а несколько пробелов. Допустимо.

VAR
S:STRING;
F:TEXT;
i,N_W:BYTE;

BEGIN
Assign(f, 'D:\sss');
ReSet(f);
ReadLn(f,S);
Close(f);

N_W:=0;
i:=0;
REPEAT
REPEAT
INC(i);
UNTIL (S=' ') OR (i=Length(S));
INC(N_W);
IF i<Length(S) THEN
REPEAT
INC(i)
UNTIL (S<>' ');
UNTIL i=Length(S);
WriteLn('String contains ',N_W,' words');
ReadLn;
END.