В заданной строке подсчитать количество слов, состоящих только из одной буквы

@BFG · Регистрация: 14.09.2012

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

4)В заданной строке подсчитать количество слов, состоящих только из одной буквы.

@Neon-z · 15.09.2012, 00:10

Pascal

function Ex(s:string):integer;
var i,t:integer;
begin
for i:=1 to Length(s) do
if s[i] in ['a'..'z','A'..'Z'] then
if ((s[i+1]=' ')and(s[i-1]=' ')) then t:=t+1;
Ex:=t;
end;

@BFG 0 / 0 / 0 Регистрация: 14.09.2012 Сообщений: 8
		1
	В заданной строке подсчитать количество слов, состоящих только из одной буквы 14.09.2012, 21:24. Показов 1738. Ответов 1 Метки нет (Все метки) 4)В заданной строке подсчитать количество слов, состоящих только из одной буквы. 0

	15.09.2012, 00:10

В заданной строке подсчитать количество слов, состоящих только из одной буквы

Решение