Viết chương trình nhập số nguyên a, cho biết a có là số dương và là số chẵn hay không ?

0 bình luận về “Viết chương trình nhập số nguyên a, cho biết a có là số dương và là số chẵn hay không ?”

1. Program BTH;
   uses Crt;
   var a:longint;
   begin
   clrscr;
   Write(‘Nhap so nguyen a: ‘);readln(a);
   If a>=0 then writeln(a,’ la so nguyen duong.’) else writeln(a,’ khong phai la so nguyen duong.’);
   If a mod 2=0 then writeln(a,’ chia het cho 2.’) else writeln(a,’ khong chia het cho 2.’);
   readln;
   end.

   Bình luận

2. $program$ kiem_tra_so;

   $uses$

   $crt;$

   var a,k : integer;

   begin clrscr;

   write(‘ Nhap so a = ‘);

   $readln(a);$

   write(‘ Nhap so k = ‘);

   readln(k); If a = 2 * k then writeln(‘ a la so chan’) else writeln(‘ a la so le ‘);

   $readln;$

   $end.$

   Bình luận