Dim n As Integer = Val(InputBox("أدخل عدد صحيح")) Dim sum As Integer = Enumerable.Range(1, n).Sum MsgBox(sum)
// Example program #include <iostream> #include <string> int main() { std::cout << "Enter integer number: "; std::string nm; getline (std::cin, nm); int n = atoi(nm.c_str()); int sum=0; for( int i = 1; i < n+1; i++ ) { sum = sum + i ; } std::cout << "Sum = " << sum << "\n"; }