Программа нахождения суммы нечётных чисел S= 1+3+5+7+...+2*N-1 Паскаль

Question

Программа нахождения суммы нечётных чисел S= 1+3+5+7+...+2*N-1 Паскаль

Answer 1

Ответ:

begin

 var n := ReadInteger();

 var sum := 0;

 for var i := 1 to n do

   if i mod 2 = 1 then

     sum += i;

 Write(sum)

end.

Объяснение:

PascalABC.NET

Comments

begin Range(1, ReadInteger(), 2).Sum.Println;end.

---

или так