fork download 
  1. program stairway;
  2. var N : integer;
  3.     B : int64;
  4. begin
  5. 	readln(N);
  6. 	B:=N*(N+1) div 2;
  7. 	writeln(B);
  8. end.
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin 
987
stdout 
487578
https://ideone.com/EnkXf7
language:
Pascal (fpc 3.0.4)
created:
9 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!