fork download
copy 
  1. program summa_chisel;
  2.  var a,n,i : integer;
  3. begin
  4.   write ('введите максимальное слагаемое : n');
  5.   readln (n);
  6.   a:=0;
  7.    for i := 1 to n do
  8.     a:= a + i ;
  9.    writeln ('  сумма всех чисел от 0 до n равна : ',a);
  10. end.
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
10
stdout
copy 
введите максимальное слагаемое : n  сумма всех чисел от 0 до n равна : 55
https://ideone.com/4QrGwp
language:
Pascal (fpc 3.0.4)
created:
1 day 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!