Дан текст. Группы символов, разделённые пробелами и не содержащие пробелы внутри себя, будем называть словами. Подсчитать количество слов в данной последовательности- Pascal(Паскаль)

var
s:string;
k,i:integer;
begin
readln(s);

s:=' '+s;
k:=0;
for i:=1 to length(s) do
if(s[i]<>' ')and(s[i-1]=' ') then k:=k+1;

writeln('-------',k);


end.

Похожие записи/страницы:

Leave a Comment

+ 76 = 82