fork(3) download 
  1. function apaini(x : integer) : integer;
  2. var
  3.   ans, i : integer;
  4. begin
  5.   ans := 0;
  6.   i := 1;
  7.   while (i <= x) do begin
  8.     if (x mod i = 0) then ans := ans + 1;
  9.     i := i + 1;
  10.   end;
  11.   apaini := ans;
  12. end;
  13.  
  14. var 
  15.   i : integer;
  16.   N : integer;
  17.   x : integer;
  18.   ans : integer;
  19. begin
  20.   readln(N, x);
  21.   ans := 0;
  22.   for i := 1 to N do begin
  23.     if (apaini(i) mod x = 0) then
  24.       ans := ans + 1;
  25.   end;
  26.  
  27.   writeln(ans);
  28. end.
Success #stdin #stdout 0.01s 4516KB
comments (?)
stdin 
1000 2
stdout 
969
https://ideone.com/uOyndM
language:
Pascal (fpc 3.0.4)
created:
8 years 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!