fork download
copy 
  1. program ideone;
  2. var n, f, i: integer;
  3. begin
  4. f:= 1;
  5. readln (n);
  6. for i:= 2 to n do
  7. f:= f * i;
  8. writeln (f);
  9. end.
Success #stdin #stdout 0s 9128KB
comments (?)
stdin
copy 
1
stdout
copy 
1
https://ideone.com/vtbkI6
language:
Pascal (gpc 20070904)
created:
4 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!