Viết chương trình cho biết từ 0 đến số nguyên n dương n có bao nhi u số lẻ (với n được nhập vào từ bàn phím) Ví dụ: Nhập N = 20 Kết quả: Tu 0 đen 20 co 10 so le

Program BTH;
uses crt;
var n,i,k:longint;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        For i:=0 to n do
        Begin
                If i mod 2=1 then
                k:=k+1;
        end;
        Writeln('Tu 0 den ',n,' co ',k,' so le.');
        readln;
end.

Program FNG;
Uses crt;
Var n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
                If i mod 2 = 1 then inc(d);
        Write('Tu 0 den ',n,' co ',d,' so le');
        Readln
End.