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

@karmen · Регистрация: 23.05.2009

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

@Puporev · 19.06.2009, 09:32

Pascal

uses crt;
const rzd=['.',',','?',';',':','!'];{razdeliteli}
var s,s1:string;
    i:byte;
begin
clrscr;
write('Text: ');readln(s);
writeln;
{udalim razdeliteli}
for i:=length(s) downto 1 do
if s[i] in rzd then s[i]:=' ';
{dobavim probel}
s:=s+' ';
{udalim lishnie probely}
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
{vydelyaem slova}
writeln('Iskomye slova: ');
while pos(' ',s)>0 do
  begin
   s1:=copy(s,1,pos(' ',s)-1);
   for i:=1 to length(s1) do
   if s1[i]='e' then
     begin
      write(s1,' ');
      break;
     end;
   delete(s,1,pos(' ',s));
 end;
readln
end.

@karmen 0 / 0 / 0 Регистрация: 23.05.2009 Сообщений: 7
		1
	Вывести все слова, которые содержат хотя бы одну букву е 19.06.2009, 08:46. Показов 2573. Ответов 1 Метки нет (Все метки) Вывести все слова, которые содержат хотя бы одну букву е 0

	19.06.2009, 09:32

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

Решение