fork download
copy 
  1. program lab6 (input, output);
  2. const 
  3. n = 40;
  4. var 
  5. st: string;
  6. i, k: integer;
  7. begin 
  8. writeln('Please enter text');
  9. readln(st);
  10. if length(st) > n then 
  11. writeln('Text is longer then 40 symbols')
  12. else 
  13. begin 
  14. k := 0;
  15. for i := 1 to length (st) do 
  16. begin 
  17. if st[i] = '(' then 
  18. k := k + 1
  19. else 
  20. if st[i] = ')' then 
  21. k := k - 1;
  22. if k < 0 then 
  23. break;
  24. end;
  25. if k = 0 then 
  26. writeln('Balance of brackets are true')
  27. else 
  28. writeln('Balance of brackets are false');
  29. writeln('Final balance score :',k);
  30. end;
  31. readln;
  32. end.
  33.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
85764678((((7e5++09476546)))))))
stdout
copy 
Please enter text
Balance of brackets are false
Final balance score :-1
https://ideone.com/pDdb4S
language:
Pascal (fpc 3.0.4)
created:
16 hours 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!