Viết chương trình Pascal, kiểm tra xem một số X (nguyên dương) là số chẵn hay lẻ?

0 bình luận về “Viết chương trình Pascal, kiểm tra xem một số X (nguyên dương) là số chẵn hay lẻ?”

1. program ct_btpt;

   uses crt;

     var x: integer;

   begin

     clrscr;

     write(‘Nhap x = ‘); readln(x);

     if x mod 2 = 0 then write(x, ‘ la so chan’) else write(x, ‘ la so le’);

     readln

   end.

   Bình luận

2. uses crt;

     var x: integer;

   begin

   clrscr;

   write(‘Nhap x = ‘); readln(x);

   if x mod 2 = 0 then write(x, ‘ la so chan’) else write(x, ‘ la so le’);

   readln;

   End.

   Bình luận