fork download
copy 
  1. function k(n: longint): longint;
  2. var x, s: longint;
  3. begin
  4. 	x:= 5; s:= 0;
  5. 	while x<= n do
  6. 	begin
  7. 		s:= s+ trunc(n/x);
  8. 		x:= x*5;
  9. 	end;
  10. 	k:= s;
  11. end;
  12. function g(n: longint): longint;
  13. begin
  14. 	case n of
  15. 		0: g:= 1; 
  16. 		1: g:= 1; 
  17. 		2: g:= 2; 
  18. 		3: g:= 6; 
  19. 		4: g:= 4;
  20. 		5: g:= 4; 
  21. 		6: g:= 4; 
  22. 		7: g:= 8; 
  23. 		8: g:= 4; 
  24. 		9: g:= 6; 
  25. 		10: g:= 6;
  26. 	end;
  27. end;
  28. function d(n: longint): longint;
  29. begin
  30. 	case n mod 4 of
  31. 		0: d:= 1; 
  32. 		1: d:= 3; 
  33. 		2: d:= 9; 
  34. 		3: d:= 7;
  35. 	end;
  36. end;
  37.  
  38. var n, r, p, c: longint;
  39. Begin 
  40. 	readln(n);
  41. 	r:= 1; c:= k(n);
  42. 	if (n = 0) or (n = 1) then r:= 1
  43. 	else begin
  44. 		while n> 0 do begin
  45. 			p:= n mod 10;
  46. 			r:= (r*g(p))mod 10;
  47. 			n:= n div 5;
  48. 		end;
  49. 		r:= (6*r*d(c))mod 10;
  50. 	end; 
  51. 	writeln(r);
  52. end.
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
1493
stdout
copy 
2
https://ideone.com/BIi6TD
language:
Pascal (fpc 3.0.4)
created:
49 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!