Строки. Подсчитать количество слов в предложении

@Джессика · Регистрация: 10.04.2012

Студворк — интернет-сервис помощи студентам

Написать программу, которая считает число слов в предложении.

@Paster Fob · 08.05.2012, 10:15

Pascal

Program slovo;
const symbols = [ ' ', ';', ':', '-','?','!','.',','];
var s:string;
    i:byte;
    n:integer;
begin
  writeln('введите строку');
  readln(s);
  for i:=1 to length(s) do begin
    if (s[i] in Symbols) and not (s[i-1] in Symbols) then n:=n+1;
  end;
  writeln('в строке ',n,' слов');
  readln;
end.

@Джессика 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 11
		1
	Строки. Подсчитать количество слов в предложении 08.05.2012, 09:48. Показов 9593. Ответов 1 Метки нет (Все метки) Написать программу, которая считает число слов в предложении. 0

Опции темы

Строки. Подсчитать количество слов в предложении

Решение