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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.