Дана строка, найти в ней те слова, которые содержат хотя бы одну букву k

@Blend · Регистрация: 04.04.2013

Помогите решить.

4. Дана строка. Найти в ней те слова, которые содержат хотя бы одну букву k.

Заранее спасибо.

@Зотов_из_ОСА · 05.06.2014, 16:03

Blend,

Pascal

 readln(s);
 k:=1;
 for i:=1 to length(s) do
   begin
     if s[i] in [#32, '.',',',';'] then 
       begin
        if pos('k',copy(s,k,i-k)) <>0 then begin 
          inc(e);         
          c[e]:=copy(s,k,i-k);
         end;
        k:=i+1;
       end;
   end;
 for i:=1 to e do write(c[i], ' ');

@Blend 0 / 0 / 0 Регистрация: 04.04.2013 Сообщений: 21
		1
	Дана строка, найти в ней те слова, которые содержат хотя бы одну букву k 05.06.2014, 07:45. Показов 1943. Ответов 1 Метки нет (Все метки) Помогите решить. 4. Дана строка. Найти в ней те слова, которые содержат хотя бы одну букву k. Заранее спасибо. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Дана строка, найти в ней те слова, которые содержат хотя бы одну букву k

Решение