fork download 
  1. const s = 'S = 2*X1 + 3*X2 / (X2 + 3*X1) / (X2 + 25*X1).';
  2.  
  3. var i, k: integer;
  4.  
  5. begin
  6.     k := 0;
  7.     for i := 1 to length(s) do begin
  8.         k += ord(s[i] = '*');
  9.     end;
  10.     writeln(k);
  11. end.
Success #stdin #stdout 0s 5304KB
comments (?)
stdin 
Standard input is empty
stdout 
4
https://ideone.com/TkDaHZ
language:
Pascal (fpc 3.0.4)
created:
10 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!