Підрахувати кількість слів в реченні.

Розв’язання: 

Для підрахунку кількості слів у реченні нам потрібно згадати, як ми самі рахуємо слова і навчити цій справі ПЕОМ. Звичайними словами пояснити спосіб для комп’ютера можна так: Якщо під час перегляду всіх символів у реченні ви зустріли підряд два символи, перший з яких не є пропуском, а другий – є пропуском, то це кінець слова. Даний алгоритм врахує і той факт, коли ми будемо вводити між словами не один пропуск, а два і більше. Для універсальності і 100% точності про всяк випадок перед початком аналізу до кінця нашого речення «приклеїмо» пропуск.

Program kol_slow; Var St   : String;        i, k : Integer; Begin   Write(‘Введіть текст: ’);

Readln(St);   k := 0; St := St+ ‘ ’;   For i:=1 to length(St) – 1 do     if (St[i] <> ‘ ’) and (St[i+1] = ‘ ’) then inc(k);     writeln(‘У введеному тексті ’, k, ‘ слів.’); 

Readln end.