Nhập vào số nguyên A từ bàn phím kiểm tra đó là số chẵn hay lẻ

0 bình luận về “Nhập vào số nguyên A từ bàn phím kiểm tra đó là số chẵn hay lẻ”

1. Uses crt;

   Var a:integer;

    Begin

          Write(‘Nhap a: ‘);  Readln(a);

         If a MOD 2=0 Then

       Writeln(‘a la so chan’)

      Else

       Writeln(‘a la so le’);

     Readln;

   End.

   Bình luận

2. Program BTT;
   Uses crt;
   Var a: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           If a mod 2 = 0 then Write(a,’ la so chan’)
           Else Write(a,’ la so le’);
           Readln
   End.

   Bình luận