Viết chương trình nhập vào một số. Kiểm tra xem số đó có chia hết cho 3 không, đó là số âm hay số dương, chẵn hay lẻ?(sử dụng câu lệnh điều kiện dạng

0 bình luận về “Viết chương trình nhập vào một số. Kiểm tra xem số đó có chia hết cho 3 không, đó là số âm hay số dương, chẵn hay lẻ?(sử dụng câu lệnh điều kiện dạng”

1. Program bai1;

   uses crt;

   var n : integer;

   begin

   clrscr;

   repeat

   write(‘nhap so nguyen =’); readln(n);

   until n > 0;

   if n mod 3 = 0 then

   write(‘- so ‘,n,’ chia het cho 3 ‘) else

   write(‘- so ‘,n,’ khong chia het cho 3 ‘);

   writeln;

   if n mod 2 = 0 then

   write(‘- so ‘,n,’ la so chan ‘) else

   write(‘- so ‘,n,’ la so le ‘);

   readln;

   end.

   Bình luận

2. Program bai1;

   uses crt;

   var n : integer;

   begin

   clrscr;

   repeat

   write(‘nhap so nguyen =’); readln(n);

   until n > 0;

   if n mod 3 = 0 then

   write(‘- so ‘,n,’ chia het cho 3 ‘) else

   write(‘- so ‘,n,’ khong chia het cho 3 ‘);

   writeln;

   if n mod 2 = 0 then

   write(‘- so ‘,n,’ la so chan ‘) else

   write(‘- so ‘,n,’ la so le ‘);

   readln;

   end.

       chúc pn hk tốt nhá

   Bình luận