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

@камитоль · Регистрация: 24.03.2016

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

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

@SW Developer · 26.03.2016, 18:12

Pascal

var
  s1, s2 : string;
  s, i, j : integer;
  
begin
  Writeln('Введите текст:');
  Readln(s1);
  
  j:= Ord(s1[0]);
  Insert(' ', s1, j+1);
 
  s:= 0;
  repeat
    j:= Pos('к', s1);
    i:= Pos(' ', s1);
    if (i>j) and (j<>0) then
      begin
        s:= s + 1;
        s2:= Copy(s1, 1, i-1);
        Writeln(s2);
        Delete(s1, 1, i);
      end
    else Delete(s1, 1, i);
  until i = 0;
  Writeln('Искомое количество слов s = ', s);
end.

@камитоль 0 / 0 / 0 Регистрация: 24.03.2016 Сообщений: 11
		1
	Указать слова строки, которые содержат хотя бы одну букву k 24.03.2016, 20:47. Показов 2138. Ответов 1 Метки нет (Все метки) дана строка. указать те слова, которые содержат хотя бы одну букву k 0

	26.03.2016, 18:12

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

Решение