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.

Answer 2

У кого-то есть паскаль . нет, ечли нет, то исправить там труда никакого не составит