Цитата:
Сообщение от TpaXmopucm
1*STRING
|
То есть вводится строка? Пожалуйста:
Код:
VAR
S:String;
N,i:Byte;
BEGIN
Writeln('Enter the string:');
Readln(S);
N:=0;
i:=0;
Repeat
Inc(i);
Until S[i]<>' ';
Repeat
Inc(N);
repeat
Inc(i);
until (S[i]=' ') or (i=Length(S));
If i<Length(S) then
repeat
inc(i);
until (S[i]<>' ') or (i=Length(S));
Until i=Length(S);
Writeln(N,' words');
Readln;
END.
В программе отрабатываются не только простейшие ситуации, когда слова разделены одним пробелом, но и когда пробелов несколько или пробелы есть в начале строки.