файлы

[сис]

не получается совсе составить проги...
1)есть 40 символов(буквы, пробелы). выписать все слова, содржащие в середине ровно один дефис
2)ввести с клавы ряд, составленный из русских букв и знаков препинаний, содержащий 34 эл. вывести все буквы, у которых одинаковые соседи, т.е. буквы справа и слева от нее.
3)в заданном массивесимволов из 32 эл. выяснить сколько раз встречается последовательность "лес"....
буду очень благодарна.

[rubius2008]

1.

for i:=1 to 40 do 
 if s[i]<>' ' then s1:=s1+s[i]
 else if length(s1)>0 then begin
    p:=pos('-',s1);
    if (length(s1)-p=p-1) then begin
       delete(s1,p,1);
       if pos('-',s1)=0 then begin insert('-',s1,p); writeln(s1) end;
    end; 
 end;

Могу все сделать, если никто другой не поможет, но не бесплатно, если надо то пишите в асю 600-927-970