строки

[perojenko]

Из строки удалить все слова начинающиеся с указаной буквы. Слова в строке разделены одним пробелом. Строка и буквы вводятся с калвиатуры. Вывести строку после удаления слов.

[Sazary]

Например, так:

uses crt;
var
s : string;
c : char;
i,k,e : integer;
begin
clrscr;
readln(s);
write('Enter char: ');
readln(c);
writeln;

i:=1;
while i<=length(s) do
 begin
 while (s[i]=' ') and (i<=length(s)) do inc(i);
 if s[i] <> c then
  begin
  while (s[i] <> ' ') and (i<=length(s)) do inc(i);
  continue;
  end
 else
  begin
  k := i;
  while (s[k] <> ' ') and (k<=length(s)) do inc(k);
  delete(s,i,k-i);
  end;
 inc(i);
 end;

writeln(s);
readln;
end.

[capta1n]

была сотня таких заданий - Sazary, легче было послать пользователя по поиску

[Sazary]

capta1n Делать было нечего, вот и убил пару минут.
В любом случае, теперь будет еще одна тема, которая попадется при поиске

[capta1n]

если бы за миллионный раз повторяющейся темы давали миллион - вы бы стали миллионером ))

[Sazary]

capta1n Могу то же самое сказать о Вас.

За сим прекращаю оффтоп