[Pascal] Viết chương trình kiểm tra tính chẵn lẻ của 1 số nguyên

[Pascal] Viết chương trình kiểm tra tính chẵn lẻ của 1 số nguyên

Ngôn ngữ lập trình pascal

CODE:

Select All

Program So_chan_le;
Uses Crt;
Var
   so,du:Integer;
Begin
   Clrscr;
   Writeln('SO CHAN HAY SO LE');
   Writeln('-----------------');
   Write('-Nhap mot so nguyen bat ky: ');
   Readln(so);
   du:=so Mod 2;
   Case du Of
       0:Begin
          Writeln('-So : ',so);
          Writeln('-La so chan');
         End;
       1:Begin
          Writeln('-So : ',so);
          Writeln('-La so le');
         End;
   End;
   Writeln;
   Writeln('   Bam phim <Enter> de ket thuc');
   Readln;
End.