Лабораторная работа №13
Строки”
Вариант – 18
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Program Lab12;
var s,str : string;
k,i,i1,i2,m : integer;
begin
Writeln(‘Vvedite stroky’);
Readln(s);
m:=1;
for i:=m to length(s) do
begin
if s[i]='(‘ then
begin
i1:=i;
for k:=i to length(s) do
if s[k]=’)’ then
begin
i2:=k;
Delete(s,i1+1,length(s)-i2+2);
m:=i1+1;
break;
end;
end;
end;
Writeln(‘Izmenennaya stroka: «‘,s,'»‘);
READLN;
end.