Найти сумму нечётных чисел в диопазоне от 1 до 100.

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

Вариант 1.

begin
  Writeln(Range(1,99,2).Sum) // Сумма нечетных
end.

Вариант 2

begin
  Writeln((99+1)/2*((99-1)/2+1)) // Сумма арифметической прогрессии
end.

Вариант 3

begin
  Writeln(Range(1,100).Where(x->x.IsOdd).Sum) // тупой перебор
end.

Во всех вариантах результат 2500

На С++
#include <iostream>
using namespace std;

int main()
{
    int s = 0;
    for (int i = 1; i < 100; i += 2) {
        cout << i << " ";
            s += i;
    }
    cout << endl << s;
    return 0;
}