The Icon Programming Language

Description

Source Code

  procedure main()
      local n, sum             # Declare two local variables

      sum  :=  0;              # Set the sum to zero

      every  n := 1 to 100  do # For n equal to 1, 2, 3, 4, 5 ...
        sum  :=  sum + n;      # ...add n to the sum

      write ( "The sum of all numbers from 1 to 100 is ", sum );
    end

Sample Run

The sum of all numbers from 1 to 100 is 5050

Program Notes