Правила форума
Прочтите прежде чем задавать вопрос!
Дана строка. Вывести все символы, находящиеся в скобках.
Вот программка, но почему-то не хочет работать:
Код
Program mnogo_scobok;
Uses Crt;
var
s,s1:string;
p1,p2,i:byte;
begin
clrscr;
write('Please, input string >');
readln(s);
s1:='';
p1:=pos('(',s);
p2:=pos(')',s);
while (p1 and p2)<>0 do
begin
for i:=p1+1 to p2-1 do
s1:=s1+s[i];
delete(s,p1,p2-p1+1);
p1:=pos('(',s);
p2:=pos(')',s);
end;
writeln;
writeln(s1);
writeln;
writeln('Press any key...');
readkey;
end.
Uses Crt;
var
s,s1:string;
p1,p2,i:byte;
begin
clrscr;
write('Please, input string >');
readln(s);
s1:='';
p1:=pos('(',s);
p2:=pos(')',s);
while (p1 and p2)<>0 do
begin
for i:=p1+1 to p2-1 do
s1:=s1+s[i];
delete(s,p1,p2-p1+1);
p1:=pos('(',s);
p2:=pos(')',s);
end;
writeln;
writeln(s1);
writeln;
writeln('Press any key...');
readkey;
end.
Вот ещё алгоритм, на котором, как мне кажется, можно легко понять работу программы.
И вот эту задачку, а то что-то даже в голову не идёт:
Определить имеются ли в двумерном массиве элементы со значениями, содержащими цифру «1» (например, 105)
Сообщение отредактировано: acid_burn -
