Даны натуральное число n, символы s1, ... sn., группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. подсчитать количество слов в данной последовательности.

в TPascal

Question

Информатика

Корнелий

16 июня, 23:13

Даны натуральное число n, символы s1, ... sn., группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. подсчитать количество слов в данной последовательности.

в TPascal

+3

Ответы (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.