Удалить из строки слова, начинающиеся на заданную букву - Turbo Pascal

Формулировка задачи:

дано строку слов из латинских букв. разработать программу, которая будет удалять все слова на букву в с данного текста.


textual

Код к задаче: «Удалить из строки слова, начинающиеся на заданную букву - Turbo Pascal»

var
  s:string;
  c:char;
  i,j:integer;
begin
  write('Enter string:');readln(s);
  write('Enter character:');readln(c);
  for i:=length(s) downto 1 do
    if (s[i]=c) and ((i=1) or (pos(s[i-1],' .,:;!?')>0)) then
        while (i<=length(s)) and (pos(s[i],' .,:;!?')=0) do delete(s,i,1);
 
  writeln('Result: "',s,'"');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.167 из 5

Источник
Похожие ответы