Question

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

Answer 1

var

i,n,s:integer;

Begin

s:=0;

Readln(n);

for i:=1 to n do

 if i mod 2=1 then s+=i;

Writeln(s);

end.