Здравствуйте, Александ Двинятин. Ответы в приложении. ABC Pascal. Если что-то требует разъяснений, задавайте вопросы в мини-форум.


Приложение:
program p178031a;
{ не проверяется правая скобка }
{ не проверяется наличие других символов между скобками }
var
s: string;
i: integer;
len : integer;
begin
write('s=');
readln(s);
len := length(s);
i:= 1;
{ пропускаем символы до '(' }
while (i<len-1) and (s[i]<>'(') do
{ должно быть как минимум два оставшихся символа '(' и ')' }
i:= i+1;
if (s[i]<>'(') then
writeln('нет скобок')
else
begin
i:= i+1;
while (i<=len) and (s[i]<>')') do
begin
write(s[i]); { печатаем символы между скобками }
i:= i+1;
end;
writeln;
readln;
end;
end.

program p178031b;
{ Программа в заданной строке, состоящей из слов, разделенных одним или
несколькими пробелами,определяет номер слов содержащих только цифры.
}
var
i: integer;
s: string; { введенная строка }
FirstWord: boolean; { первое слово }
InDigits: boolean; { слово из цифр ? }
InWord : boolean; { в слове ? }
WordNo: integer; { номер слова }

begin
write('s=');
readln(s);
InWord := true;
InDigits := true;
FirstWord := true;
for i:= 1 to length(s) do
begin
if InWord and (s[i] =' ') then
begin { это было слово }
InWord := false;
inc(WordNo,1);
if InDigits then
if FirstWord then { запятая идет только перед следующим словом }
begin
write(WordNo);
FirstWord := false;
end
else
write(',', WordNo);
InDigits := true;
end
else if s[i] <> ' ' then { это начинается новое слово }
begin
InWord := true;
if not (s[i] in ['0'..'9']) then
inDigits := false;
end;
end;
if InWord then { строка кончилась непробельным символом }
begin
inc(WordNo,1);
if InDigits then { если слово только из цифр, печатать номер }
if FirstWord then
write(WordNo)
else
write(',', WordNo);
end;
writeln;
readln;
end.