program z1;
var s:string[100]; d,i:integer; yes:boolean;
begin
i:=1;
d:=LENGTH(S);
writeln('vvedite stroky iz skobok');
readln(s);
begin
while i>=LENGTH(S) DO
if (s[i]='(') and (s[i+1]=')') then
yes:=true;
if yes=true then
i:=i+2;
d:=d-2;
end;
if d<=0 then
writeln ('da')
else
writeln ('net');
end.
адо вести скобки если к примеру ()()() то вывести да в противном случае нет, в конце не получается помогите кто может |