Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / 3-5 Скобки / Скобки
.txt program Project2;
label
1;
var
st: string;
i,left: integer;
begin
WriteLn('Vvedite stroku');
ReadLn(st);
1:
left:=-1;
for i:=1 to length(st) do
begin
if st[i]='(' then left:=i;
if (st[i]=')') and (left <> -1) then
begin
Delete(st,left,i-left+1);
goto 1;
end;
end;
WriteLn(st);
ReadLn;
end.
label
1;
var
st: string;
i,left: integer;
begin
WriteLn('Vvedite stroku');
ReadLn(st);
1:
left:=-1;
for i:=1 to length(st) do
begin
if st[i]='(' then left:=i;
if (st[i]=')') and (left <> -1) then
begin
Delete(st,left,i-left+1);
goto 1;
end;
end;
WriteLn(st);
ReadLn;
end.
Соседние файлы в папке 3-5 Скобки