fork download
copy 
  1. program conio;
  2. var n, contadivisori:longint;
  3.  
  4. procedure trovadivisori (x:longint);
  5. var y,h:longint;
  6.  
  7. begin
  8.    y:=2; h:=2;
  9.    repeat
  10.    	    if  (x mod y =0) then  h:=h+2; 
  11.    	    y:=y+1;
  12.   until y>trunc(sqrt(x));
  13.   contadivisori:=h;
  14. end;
  15.  
  16. begin
  17. 	(*assign(input,  'input.txt');  reset(input);
  18.     assign(output, 'output.txt'); rewrite(output);*)
  19. 	readln(n);
  20. 	trovadivisori(n);
  21. 	writeln(contadivisori);
  22.  
  23. end.
  24.  
Success #stdin #stdout 0.01s 5296KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
4
https://ideone.com/EFK0nA
language:
Pascal (fpc 3.0.4)
created:
11 hours 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!