fork(1) download 
  1. program conio;
  2. var n, risposta:longint;
  3.  
  4. function primo(x: integer): boolean;
  5. var i:longint;
  6. begin
  7.    i:= 2;
  8.    while (i<x) and (x mod i <> 0) do i:= i+1;
  9.    primo:= i = x;
  10. end;   
  11.  
  12. procedure trovadivisori (x:longint);
  13. var y,molt:longint;
  14.  
  15. begin
  16. y:=2; risposta:=0;
  17. repeat
  18. 	molt:=0; 
  19. 	if primo(y) then 
  20. 	 begin
  21. 	   while x mod y =0 do
  22. 	      begin
  23. 	         x:= x div y;
  24. 	         molt:= molt+1;
  25. 	      end;
  26. 	  risposta:=risposta + molt;
  27. 	 end; 
  28. 	  y:=y+1;
  29. until y>x;   
  30. end;
  31. begin
  32. 	(*assign(input,  'input.txt');  reset(input);
  33.     assign(output, 'output.txt'); rewrite(output);*)
  34. 	readln(n);
  35. 	trovadivisori(n);
  36. 	writeln(risposta+1);
  37. end.
Success #stdin #stdout 0s 5276KB
comments (?)
stdin 
1000
stdout 
7
https://ideone.com/A3Au9k
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!