• Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.

Ответы 1

  • Считаем, что слова разделяются ровно одним пробелом. Тогда слов будет на единицу больше, чем пробелов.var  i, n, p, k: integer;  s: string;begin  Write('Введите предложение и закончите его точкой: ');  Readln(s);  s := Trim(s);  p := Pos('.', s) - 1;  k := 0;  for i := 1 to p do    if s[i] = ' ' then k := k + 1;  Writeln('Введено слов- ', k + 1)end.Тестовое решение:Введите предложение и закончите его точкой: Карл у Клары украл кораллы.Введено слов- 5
    • Автор:

      friendo
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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