Написать программу определяющую число слов в строке одно слово отделяется от другого...

Question

Написать программу определяющую число слов в строке одно слово отделяется от другого пробелом(паскаль)(срочно нужно)

Answer 1

Program WordsCounter(output);
var        str: string;       
i, count: integer;
begin       
write('Сторка: ');       
readln(str);        
i := length(str);       
if i > 0 then begin               
count := 1;               
while i > 0 do begin                       
if str[i] = ' ' then                               
count := count + 1;                       
i := i - 1;               
end;       
end       
else               
count := 0;         
writeln('Число слов: ', count);
readln;
end.