Question

найти количество нечетных чисел от 1 до n

Answer 1

Var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.