Дано предложение. В нем слова разделены одним пробелом (начальные и конечные пробелв и символ '-' в предложении отсутствуют). Определить количество слов в предложении.

Question

Информатика

Витяша

12 апреля, 03:34

Дано предложение. В нем слова разделены одним пробелом (начальные и конечные пробелв и символ '-' в предложении отсутствуют). Определить количество слов в предложении.

+5

Ответы (1)

Знаете ответ на вопрос?

Борюля · Answer 1

var

s:string;

i, count:integer;

begin

count:=0;

readln (s) ;

for i:=1 to length (s) do

if (s[i]=' ') then count:=count+1;

writeln ('В данной строке ', count+1,' слов') ;

end.