fork download
copy 
  1.  
  2. var kancil, panda, i, j: integer;
  3. begin
  4.    for i := 2 to 100 do
  5.    begin
  6.       j := 1;
  7.       kancil := 0;
  8.       while(j <= i) do
  9.       begin
  10.           if i mod j = 0 then inc(kancil);
  11.           inc(j);
  12.       end;
  13.       if kancil = 2 then inc(panda);
  14.    end;
  15.    writeln(panda);
  16. end.
Success #stdin #stdout 0s 5460KB
comments (?)
stdin
copy 
1
2
10
42
11
stdout
copy 
25
https://ideone.com/Yh8C0O
language:
Pascal (fpc 3.0.4)
created:
1 year 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!