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

{ ответ дан на языке Pascal }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  I: INTEGER;
  Count: INTEGER;

BEGIN
  Count := 0;
  WRITE('Введите строку: ');
  READLN(Str);
  FOR I := 1 TO LENGTH(STR)
  DO
  BEGIN
    IF STR[I] = ' '
    THEN Count := Count + 1;
  END;

  WRITELN(Count + 1);

END.