Nhập vào số nguyên n bất kỳ viết chương trình A)Kiểm tra n số chẵn hay lẻ B)Số n chia hết cho 5 không

0 bình luận về “Nhập vào số nguyên n bất kỳ viết chương trình A)Kiểm tra n số chẵn hay lẻ B)Số n chia hết cho 5 không”

1. uses crt;
   var n:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘); readln(n);
      if n mod 2=0 then writeln(n,’ la so chan’) else writeln(n,’ la so le’);
      if n mod 5=0 then writeln(n,’ chia het 5′) else writeln(n,’ khong chia het 5′);
   readln
   end.

   Bình luận

2. program Chan_le;

   uses crt;

   var a : interger;

   clrscr;

   writeln(‘nhap vao so 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