Advertisement
Dennnhhhickk

Untitled

Nov 20th, 2016
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.14 KB | None | 0 0
  1. program Project6;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 1000000;
  10.  
  11. var
  12. s: string;
  13. bol: array [0..MAXIN] of boolean;
  14. stack: array [0..MAXIN] of integer;
  15. head, i, time, ans, answer: integer;
  16.  
  17. begin
  18. readln(s);
  19. head := 0;
  20.  
  21. for i := 1 to length(s) do
  22. bol[i] := true;
  23.  
  24. for i := 1 to length(s) do
  25. if (s[i] = '(') then
  26. begin
  27. inc(head);
  28. stack[head] := i;
  29. end
  30. else
  31. if (s[stack[head]] = '(') then
  32. dec(head)
  33. else
  34. bol[i] := false;
  35.  
  36. for i := 1 to head do
  37. bol[stack[i]] := false;
  38.  
  39. time := 0;
  40. ans := 0;
  41. answer := 0;
  42.  
  43. for i := 1 to length(s) do
  44. if (s[i] = '(') then
  45. begin
  46. inc(head);
  47. stack[head] := i;
  48. end
  49. else
  50. if (head > 0) then
  51. dec(head)
  52. else
  53. bol[i] := false;
  54.  
  55. if (ans = time) then
  56. inc(answer)
  57. else
  58. if (ans < time) then
  59. begin
  60. ans := time;
  61. answer := 1;
  62. end;
  63.  
  64. if (ans = 0) then
  65. writeln('0 1')
  66. else
  67. writeln(ans, ' ', answer);
  68.  
  69. //for i := 1 to length(s) do
  70. //writeln(bol[i]);
  71.  
  72. readln;
  73. readln;
  74. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement