Ответ: var S: String;
l, m: Integer;
BEGIN
{ WriteLn(''Введите строку:'');
ReadLn(S);}
S:=''asdfhjg(111111)1111'';
l:=POS(''('', S);
m:=POS('')'', S);
if (l <> 0) and (m <> 0) and( m > l) then
S:=copy(S, l+1, (m- l)-1);
WriteLn(S);
END.

Ответ: Получилось. Выслал

Ответ: Очень просто: создаешь ярлык на BP.EXE (он лучше работает в Windows чем TURBO.EXE), открываешь свойства ярлыка (правая кнопка мыши - Свойства) и на панели Экран устанавливаешь кнопку "Полноэкранный режим"
Переход, знаешь, наверно, по Alt + ENTER

Ответ: То есть, Alt + Print Screen Вам не нравится?
---
Удаляя спам, нечаянно удалил Ваше последнее сообщение.
Да нет, все нормально работает и копируется в Paint графическое окно, которое захватил в полноэкранном графическом режиме с помощью Alt + Print Screen. У меня Win2k
А так есть грабилки и давно уже

Ответ: Гм... А какие?

Ответ: Разобрался, но сейчас занятия идут - чуть позднее напишу. Это несложно реализуется

Ответ: Вот программа:
---
{Для краткости проверка на переполнение стека и кучи не делается}
{$M 65520, 0, 655360}
program trees;
uses crt;
type pTree=^Tree;
Tree=record
name :string[10];
left :pTree;
right :pTree
end;
var s:string;
t,v:pTree;
n,i:integer;
procedure insert(var t:pTree; x:string);
begin
If T=Nil then begin
new(T);
t^.name:=x;
t^.left:=nil;
t^.right:=nil
end
else
if t^.name>=x then insert(t^.left,x)
else insert(t^.right,x)
end;

procedure obhod(t:pTree);
begin
if t<>nil then begin
obhod(t^.left);
writeln(t^.name);
obhod(t^.right);
end;
end;
procedure freetree(var t: pTree);
begin
if t <> nil then
if t^.left <> nil then freetree(t^.left);
if t^.right <> nil then freetree(t^.right);
dispose(t)
end;

var
ma: longint; k: Integer;
begin
clrscr;
ma:=Memavail; {Для проверки правильности очистки}

writeLn(''Введите слова (символ окончания - пустая строка):'');
textcolor(15); t:=nil;
repeat
readln(s); if s <> '''' then insert(t,s)
until s = '''';
writeln(''словарь:'');
textcolor(lightblue); obhod(t);

textcolor(7);
freetree(t);
Writeln(''Потеря памяти: '', ma - MemAvail);
writeLn(''Нажмите любую клавишу ...'');
readKey
end.

Ответ: С деревом я делал только на С. Так что надо отладить, раньше завтрева к обеду не успею - времени нет

Ответ: Почему? Там же выводит CHR(n) - это и есть вывод символа с кодом n!

Ответ: Вот полная полная статистика - из нее легко сделать Вашу:
--
procedure Stat(source: string);
var
chars: array[0..255] of Word;
n, k: Integer;
begin
for n:=0 to 255 do chars[n]:=0;
for n:=1 to length(Source) do
begin
k:=ord(Source[n]);
chars[k]:=chars[k] + 1
end;
for n:=0 to 255 do
if chars[n] > 0 then
Write(chr(n),'' - '', chars[n]:3,'' '');
WriteLn;
end;
VAR S: String;
BEGIN
Write(''Type the string: ''); ReadLn(S);
Stat(S);
END.

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

Ответ: Понятно. Фигня, но пока нет времени - сессия сегодня особенно - чуть позжее.

Ответ: Вот посмотри:
--
TYPE
PNode = ^TNode;
TNode = record
S: String;
Next: PNode;
end;

procedure AddNewStr(var AList: PNode; Source: string);
{Всегда в конец списка}
var p: PNode;
begin if AList = NIL then begin
New(AList); AList^.S:=Source; AList^.Next:=NIL end
else begin p:=AList; while p^.Next <> nil do p:=p^.Next;
New(p^.Next); p^.Next^.S:=Source; p^.Next^.Next:=nil
end end;

procedure Find_And_Del(var AList: PNode);
function isSimm(a: String): Boolean;
var i, len, len2: Integer;
begin len:=length(a); len2 := len div 2;
isSimm:=False;
for i:=1 to len2 do
if a[i] <> a[len + 1 -i] then Exit;
isSimm:=True
end;

var p, p1: PNode;
begin
p:=AList; p1:=nil;
while p <> nil do begin
if isSimm(p^.S) then
begin
if p1 = nil then begin
AList:=AList^.Next;
Dispose(p);
p:=AList
end
else begin
p1^.Next := p^.Next;
Dispose(p);
p:= p1^.Next
end;
end else begin p1:=p; p:=p^.Next end end;
end;

procedure FillList(var AList: PNode);
begin
AddNewStr(AList, ''1111''); AddNewStr(AList, ''string'');
AddNewStr(AList, ''112232211''); AddNewStr(AList, ''next txen'');
end;

procedure FreeList(var AList: PNode);
var p: PNode;
begin
while AList <> nil do begin
p:= AList^.Next; Dispose(AList); AList:= p
end;
end;

procedure ShowList(AList: PNode);
var p: PNode;
begin
p:=AList;
While p <> NIL do begin
writeLn(p^.S);
p:=p^.next;
end;
end;

function HeapFunc(Size: Word): Integer; far;
begin HeapFunc := 1; end;

VAR List: PNode; ma: Longint;

BEGIN
HeapError := @HeapFunc;

ma:=MemAvail;
List:=NIL;
FillList(List);
ShowList(List);
Find_and_Del(List);
WriteLn(''После удаления: ---------'');
ShowList(List);
FreeList(List);
WriteLn(''Потеряно памяти: '',ma - MemAvail, #13#10);
END.