Информатика, опубликовано 2018-08-22 20:43:19 by Гость

Составьте программу нахождения количества слов в предложении. Предложение состоит из слов, отделенных друг от друга одним пробелом. Предложение вводится с клавиатуры.

Ответ оставил Гость

Program Task;
Var s: String;
i, r: Integer;
Begin
WriteLn(Введите предложение:);
ReadLn(s);
If (Length(s) > 0) And (s[1] ) Then
r := 1;
For i := 1 To Length(s) Do
If s[i] = Then
r := r + 1;
WriteLn(Результат: , r);
ReadLn;
End.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.