Bài này có 2 cách làm:
C1.
uses crt;
var n,i,d:longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do if i mod 2=0 then inc(d);
writeln('Co ',d,' so chan <=n');
readln;
end.
C2.
uses crt;
var n:longint;
begin
clrscr;
write('n=');readln(n);
if n mod 2=1 then dec(n);
writeln('Co ',n div 2,' so chan <= n');
readln;
end.