Вопрос по информатике:
Написать программу, которая считает, сколько слов в тексте, введенном с клавиатуры
- 08.09.2018 18:06
- Информатика
- remove_red_eye 12366
- thumb_up 109
Ответы и объяснения 1
Const Alpha : set of char=['A'..'Z','А'..'П','Р'..'Я','a'..'z','а'..'п','р'..'я']; var s:string; i:integer; wc:integer; begin writeln('Введите текст'); readln(s); i:=1; wc:=0; Repeat while NOT(s[i] in Alpha) and (i<=length(s)) do inc(i); if (i<=length(s)) then inc(wc); while (s[i] in Alpha) and (ilength(s)); writeln('Количество слов в этом тексте = ',wc); end.
- 09.09.2018 08:00
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.