Question

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

Answer 1

Лень мне придумывать эффективный алгоритм, простая реализация через цикл:

var

i, counter,n : integer;

begin

readln(n);

for i := 1 to n do

if i mod 2 = 0 then

counter := counter + 1;

write(counter);

end.