• с клавиатуры вводится строка из нескольких символов разделенных одним или несколькими пробелами.определите количество слов в строке

Ответы 1

  • var

      s : string;

      flag : boolean;

      i, c : integer;

    begin

      readln (s);

      c := 0; flag := false;

      for i := 1 to length (s) do

      begin

        if flag then

        begin

          if s[i] = ' ' then flag := false;

        end

        else

          if s[i] <> ' ' then

          begin

            inc (c);

            flag := true; 

          end;

        begin

        end;

      end;

      writeln (c);

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years