Напишите программу которая вычисляет сумму всех четных чисел в диапазоне от 1 до n.

Var       i, n, sum: integer; begin       writeln('введите n');       readln(n);       ///тут возможны два решения, с циклом и без. вот первое:       sum : = 0;       for i : = 1 to n do               if i mod 2 = 0 then                       sum : = sum + i;       writeln(sum);             ///второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии:       if n mod 2 = 1 then n : = n - 1;       + n) div 2) * n div 2); end.

это у нас прогрессия b1=1

q=1/2

bn=0,001> b1*q^(n-1)

0,001> q^(n-1)

0,001> 0,5^(n-1)

0,0005> 0,5^n

n=11

s11=b1*(1-q^n)/(1-q)=b1*(1-0,5^11)/0,5=1(0,999511718)/0,5=1,999023438

почти равно двум