Obliczanie liczb parzystych w ciągu w TP.

Witam
Mam problem z napisaniem programu w TP obliczajacy ilosc liczb parzystych w ciagu liczb calkowitych od 1 do wartosci podanej przez operatora.

Proszę o pomoc.

n div 2?

Jeżeli Liczba mod 2 = 0 to jest ona parzysta.

Można też tak

var
  Liczba:Integer;
  Parzysta:Boolean;
//...
Parzysta:=((Liczba and 1)=0);

Parzysta:=((Liczba and 1)=0);

albo

parzysta:=not wordbool(liczba and 1);

zakładam, że TP oznacza Pascal
przypomnę kolegom o Pascalowym odd()
no to mamy dwie propozycje

var i,j,s:integer;
begin
      readln(i);
      if PROPOZYCJA=1 then 
            writeln...
      else begin
            s:=0;
            for j:=1 to i do
                  if ....
            writeln(s)
      end
end.

Olesiu i Azaienie, będę kolegą i nikomu nie powiem.

Czy wyście wszyscy pogłupieli? Co druga liczba jest parzysta. Zatem w przedziale [1,n] jest (n div 2) liczb parzystych.

Patryk, czytałeś pytanie?

Mam problem z napisaniem programu w TP obliczajacy ilosc liczb parzystych w ciagu liczb calkowitych od 1 do wartosci podanej przez operatora