заданная буква

[Сristina]

Здравствуйте программисты!

Подскажите пожалуйста. Дан текст, определить кол-во слов, в котором содержится хотя бы одна заданная буква? Заранее спасибо.

[rrrFer]

чем подсказать? - выделяете слово, ищете в нем букву.
стоит указать язык, на котором вам нужно решение.

[rrrFer]

predicates  
	gtwrd(string,string,string,string)
	substr(string,string,integer)	    								
	oaw(string,integer,string)
	t(string,string,integer,integer)						   			       
clauses
		
	t(S,SS,N,NN):-
		substr(S,SS,0),
		N=NN+1;N=NN.
	gtwrd(S,W,E,T):-
		frontchar(S,C,S1),
		NOT(C=' '),
		str_char(SS,C),
		concat(W,SS,R),
		gtwrd(S1,R,E,T),!.
	gtwrd(S,W,W,R):-
		frontchar(S,_,R).
	gtwrd(S,W,W,S).
		
	substr(_,"",_):-!.
	substr("",_,_):-!,fail.
	substr(S,SS,_):-
		frontchar(S,SC,S_),
		frontchar(SS,SC,SS_),
		substr(S_,SS_,1).
	substr(S,SS,0):-
		frontchar(S,_,S_),
		substr(S_,SS,0).
	
	oaw("",0,_).
	oaw(S,N,C):-
		gtwrd(S,"",X,T),
		oaw(T,NN,C),
		t(X,C,N,NN),!.
goal
	oaw("asd qwe rty asd zxc cde xsw",N,"d"),
	write(N),nl.

на прологе

[Сristina]

а в Паскале можно пожалуйста...

[phomm]

var ch : char;
i,j : integer;
s : string;
doread : boolean;

begin
ввод строки s
ввод нужного символа ch 
i := 1;
j := 0;
doread := true;
repeat
if s[i] = ' ' 
  then doread := true
  else if doread and (s[i] = ch)
    then begin
    doread := false;
    inc(j);
    end;
inc(i);
until i = length(s);
вывод j
end;

полагаю оъбъяснений кода не надо, как и объяснений, как делается ввод и вывод ? (это такой намек их не просить)

[Сristina]

Спасибо! Огромное!