fork download
copy 
  1. program CheckBrackets2;
  2. var
  3.   st: string;
  4.   i, count: integer;
  5. begin
  6.   writeln('Enter a string (up to 40 chars):');
  7.   readln(st);
  8.   count := 0;
  9.   for i := 1 to length(st) do
  10.   begin
  11.     if st[i] = '(' then
  12.       count := count + 1
  13.     else if st[i] = ')' then
  14.       count := count - 1;
  15.  
  16.     if count < 0 then break;
  17.   end;
  18.  
  19.   if count = 0 then
  20.     writeln('Brackets are balanced.')
  21.   else
  22.     writeln('Brackets are NOT balanced.');
  23. end.
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
5
stdout
copy 
Enter a string (up to 40 chars):
Brackets are balanced.
https://ideone.com/Kig8ci
language:
Pascal (fpc 3.0.4)
created:
7 days 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!