Посчитать количество нечётных чисел в диапозоне [1,n] (через оператор FOR)

Question

Посчитать количество нечётных чисел в диапозоне [1,n]
(через оператор FOR)

Comments

жди

Answer 1

Var k,n,i:longint; begin readln(n); k:=0; for i:=1 to n do if i mod 2<>0 then k:=k+1; writeln(k); end.