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

Answer 2

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

Answer 3

или так