fork download
copy 
  1. program magneti;
  2. Uses Math;
  3. const
  4.     MAXN = 100000;
  5. var
  6.     N,i,h,conta,x,j           : longint;
  7.     descrizione, mag : array[0..MAXN] of char;
  8.  
  9. function gira(x: longint; var m: array of char): longint;
  10. var j,conta,h:longint;
  11. begin
  12.     j:=1; conta:=0; 
  13.     while j<=x do if m[j]=m[1] then begin conta:=conta+1; j:=j+2; end
  14.                                  else j:=j+2;
  15.     if conta> (x div 2) - (conta) then gira := (x div 2) - (conta)
  16.                                       else gira:=conta;
  17. end; 
  18.  
  19.  
  20.  
  21.  
  22.  
  23. begin
  24.     readln(N); h:=1; 
  25.     for i:=1 to N do begin read(descrizione[i]); if (descrizione[i]<>'(') and (descrizione[i]<>')') then begin mag[h]:=descrizione[i]; h:=h+1; end; end;  readln;
  26.     writeln(gira(h-1,mag));
  27. end.
  28.  
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
8
(+-)(-+)
stdout
copy 
1
https://ideone.com/ffmEIb
language:
Pascal (fpc 3.0.4)
created:
12 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!