fork download
copy 
  1. program lab6 (input, output);
  2. const 
  3. n = 40;
  4. var 
  5. st: array[1..n] of char;
  6. i, k: integer;
  7. begin 
  8. writeln('Please enter text');
  9. for i := 1 to n do 
  10. read(st[i]);
  11. k := 0;
  12. for i := 1 to n do 
  13. begin 
  14. if st[i] = '(' then 
  15. k := k + 1
  16. else 
  17. if st[i] = ')' then 
  18. k := k - 1;
  19. if k < 0 then 
  20. break;
  21. end;
  22. if k = 0 then 
  23. writeln('Balance of brackets are true')
  24. else 
  25. writeln('Balance of brackets are false');
  26. writeln('Final balance score :',k);
  27. end.
  28.  
  29.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
4845н4+5349999((()())))))))))))
stdout
copy 
Please enter text
Balance of brackets are false
Final balance score :-1
https://ideone.com/e5B6kh
language:
Pascal (fpc 3.0.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!