Делфи.

[Ньютон]

Дан текст. Вывести все предложения, к каким заданая буква входит не менше 2 раз.
Спасибо).

[Азамат Казанчев]

var s,s1,s2,c:string;
i,k,n:integer;
begin
s:=memo1.text; //присваиваешь содержимое в строковую переменную         как?

 c:=edit2.text; //символ на наличие которого будешь проверять               она же дан сразу "b"
 repeat //цикл 1
 i:=pos(' ',s); // позиция первого пробела
 s1:=copy(s,1,i); //записываю первое слово в s1(строку)
 k:=pos(c,s1); //проверяю естьли символ нужный нам в этом слове
 delete(s,1,i); //удаляю это слово из первой строки
 if k>0 then begin //если к>0, то слово содержит нужный символ
 s2:=s2+s1; //записываю в 3ю строку
 end;
 until i=0; //цикл 1 выполнять пока есть хоть 1 пробел, т.е. в строке останется только 1 слово
 k:=pos(c,s); //проверяем естьли символ нужный нам в последнем слове
 if k>0 then begin
 s2:=s2+s;
 end;
 memo2.Text:=s2;
 memo2.Lines.SaveToFile('data22.txt'); //сохраняем в файл           Как в паскале это сделать? какие переменные у нас окончатильные?
 end;

end.

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

[Азамат Казанчев]

забыл про открытие файла в начале, 1 строку поменять и 1 добавить

[Serge_Bliznykov]

1) в данном разделе учебные задачи ЗАПРЕЩЕНЫ (почитайте правила данного раздела)

2) Название темы нарушает правила!

ЗАКРЫТО!

Модератор.
p.s. Азамат Казанчев, на будущее. просьба не отвечать в темах, нарушающих правила форума и/или раздела!