В результате работы программы, фрагмент которой приведен ниже, идет проверка правильности расстановок скобок в арифметическом выражении. Что будет результатом работы программы, если в данном выражении (например: ) избыточное количество скобок:

… n:=length (stroka); s:=0; for i:=1 to n do begin a[i]:=copy(stroka, i, 1); flag[i]:=0; end; for i:=1 to n do begin if a[i]="(" then flag [i]:=1; if a[i]=")" then flag [i]:=-1; end; for i:=1 to n do begin s:=s+flag [i]; if s<0 then x:=1; end; if (s=0) and (x=0) then writeln ('верно') else writeln ('неверно'); …

Правильный ответ:

• # Способы вычисления площади выпуклой фигуры:
• # Количество комбинаторных групп, сформированных двоичным перебором будет равно:
• # Что делает приведенная ниже программа на Паскале: var a: string; b, i, j, st, n, s, x, k: integer; begin writeln ('введите число'); readln (a); n:=length(a); s:=0; for i:=1 to n do begin val (copy(a,n-i+1,1),x,k); st:=1; for j:=1 to n do st:=st*x; s:=s+st; end; val (a, x, k); if s=x then writeln ('+') else writeln ('-'); end.
• # Приведенная программа на Паскале позволяет … var a, b, s, x: integer; begin readln (a); readln (b); s:=0; while a<>0 do begin x:=a mod b; s:=s*10 +x; a:=a div b; end; writeln (s); end.
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив вводятся числа: 1, 2, 1, 2, 1, 2. Массив У будет содержать значения: . . . for i:=1 to n do begin readln (x[i]); y[i]:=i; end; for j:=n downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m; g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g; end; . . .