Дана строка, указать те слова, которые содержат хотя бы одну букву «k»

@19Кристина · Регистрация: 06.02.2015

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

Дана строка, указать те слова, которые содержат хотя бы одну букву «k». Считать, что слова в тексте отделены друг от друга одним пробелом.

@CodeR · 14.02.2015, 07:27

Pascal

Var s,s1:string;
Begin
    write('Строка: ');readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      if Pos('k',s1)>0 then write(s1,' ');
      Delete(s,1,Pos(' ',s));
    End;
End.

@19Кристина -1 / 2 / 0 Регистрация: 06.02.2015 Сообщений: 174
		1
	Дана строка, указать те слова, которые содержат хотя бы одну букву «k» 14.02.2015, 01:16. Показов 11932. Ответов 1 Метки нет (Все метки) Дана строка, указать те слова, которые содержат хотя бы одну букву «k». Считать, что слова в тексте отделены друг от друга одним пробелом. 0

	14.02.2015, 07:27

Опции темы

Дана строка, указать те слова, которые содержат хотя бы одну букву «k»

Решение