Дано предложение. В нем слова разделены одним пробелом (начальные и ко нечные пробелы и...

Question

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

Answer 1

{ Ответ дан на языке 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.