Написать программу, которая считывает исходный код этой программы

[LORD90]

Написать программу, которая считывает исходный код этой программы и записывает в другой текстовый файл только те слова, в которых есть буква Е (все равно Большая или маленькая).

[XeruH]

Какой ЯП?
алгоритм работы
1. загружаешь файл
2. пробегаешь по словам (разделитель в твоем примере пробел и перевод каретки)
3 пробегая считаешь кол-во слов с буквой 'е'

[LORD90]

на ЯП delphi

[rubius2008]

AssignFile(f,'Этотфайл.txt'); reset(f);
AssignFile(q,'Другойфайл.txt'); rewrite(f);
while not eof(f) do begin
   readln(f,s); s1:='';
   for i:=1 to length(s) do
      if s[i]<>' ' then s1:=s1+s[i]
      else begin
                if (pos('e',s1)<>0) or (pos('E',s1)<>0) then writeln(q,s1);
                s1:='';
             end;
end;

[LORD90]

а можеш исходник в с прогой скинуть, в архиве