|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.03.2010, 15:10 | #1 |
Новичок
Джуниор
Регистрация: 27.03.2010
Сообщений: 1
|
подсчёт слов
Проверьте программу подсчёта слов в тексте
Program podschet; var i,kol:integer; b:boolean; st:string; BEGIN readln(st); kol:=0; b:=false; for i:=1 to length(st) do if (st[i]<>' ')and( b = false ) then begin b:=true; kol:=kol+1; end; else b:=false; Writeln('kolishestvo slov=',kol); Readln(kol); End. у меня просто программа не различает один пробел от двух.жду мнений по компилированию |
27.03.2010, 15:59 | #2 |
Форумчанин
Регистрация: 17.02.2008
Сообщений: 191
|
Вначале надо удалить все группы пробелов >1
Код:
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
подсчёт слов | neBu4kaMaXiM | Фриланс | 13 | 18.03.2010 18:11 |
Дана строка, состоящая из нескольких слов. Найти количество слов, которые содержат хотя бы одну букву "А" | Mashaa | Помощь студентам | 13 | 09.12.2009 13:28 |
по вводу слов в массив и подсчёт введённых слов | -ushёl- | Общие вопросы C/C++ | 4 | 16.11.2009 00:45 |
Составить в алфавитном порядке список всех слов, встречающихся в тексте, и количество этих слов. | KAPAHDAW | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 17.02.2009 01:19 |
Подсчёт трафика | Альберт | Работа с сетью в Delphi | 2 | 10.09.2007 11:35 |