Программа нахождения суммы нечётных чисел S= 1+3+5+7+...+2*N-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
begin Range(1, ReadInteger(), 2).Sum.Println;end.
или так