fork download
copy 
  1. program ideone;
  2. var
  3. 	index, num : qword;
  4. 	fact : extended;
  5. begin
  6. 	repeat
  7. 		write('Enter a number greater than 0 and lessthan 1754: ');
  8. 		readln(num);
  9. 	until (num > 0) and (num < 1754);
  10. 	fact := 1.0;
  11. 	for index := 2 to (num+1) do
  12. 		fact := fact * index;
  13. 	fact := fact - 1.0;
  14. 	writeln('The sum of values from 1*1! to ',num,'*',num,'! is ',fact);
  15. end.
Success #stdin #stdout 0s 5304KB
comments (?)
stdin
copy 
1753
stdout
copy 
Enter a number greater than 0 and lessthan 1754: The sum of values from 1*1! to 1753*1753! is  1.97926189010501005529E+4930
https://ideone.com/UCPC1v
language:
Pascal (fpc 3.0.4)
created:
4 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!