1. Viết chương trình kiểm tra số nguyên dương a là số chẵn hay số lẻ.

0 bình luận về “1. Viết chương trình kiểm tra số nguyên dương a là số chẵn hay số lẻ.”

1. uses crt;
   var a:integer;
   {—Chuong-trinh-con—}
   procedure chan;
   begin
           write(a,’ la so chan’);
   end;
   {———————-}
   procedure le;
   begin
           write(a,’ la so le’);
   end;
   {—Chuong-trinh-chinh—}
   BEGIN
           clrscr;
           write(‘Nhap so: ‘); readln(a);
           if a mod 2=0 then chan
           else le; 
           readln;
   END.

   Bình luận