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.