Вычислите сумму N натуральных четных чисел, начиная с 2.

Question

Вычислите сумму N натуральных четных чисел, начиная с 2.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

program xxx; var i, n, s : integer; begin write('введите число N='); readln(n); s:=0; i:=2; while i<=n do begin s:=s+i; i:=i+2 end; write('сумма четных чисел =', s); readln end.