Nhập vào 1 số nguyên gồm 4 chữ số kiểm tra tính chẳn lẽ của số đó

Nhập vào 1 số nguyên gồm 4 chữ số kiểm tra tính chẳn lẽ của số đó

0 bình luận về “Nhập vào 1 số nguyên gồm 4 chữ số kiểm tra tính chẳn lẽ của số đó”

  1. Uses crt;

    Var t: integer;

    Begin

          Clrscr;

          Write(‘Nhap t = ‘); readln(t);

          If t mod 2 <> 0 then writeln(t,’ la so le’)

          Else writeln(t,’ la so chan’);

    Readln

    End.

    Bình luận

Viết một bình luận