nhập N in ra màn hình số chia hết chia 3 và ko chia hết cho 3

0 bình luận về “nhập N in ra màn hình số chia hết chia 3 và ko chia hết cho 3”

1. Program So_chia;

   Uses crt;

   Var N: integer;

   Begin

   Clrscr;

   Writeln (‘Nhap N = ‘);

   Readln (N) ;

   If N mod 3 = 0 then Readln (N);

   If N mod 3 # 0 then Readln  (N);

   End

   Bình luận

2. uses crt;

   var n : integer;

   begin clrscr;

   write(‘Nhap n=’); readln(n);

   If n mod 3 = 0 then write(‘So chia het cho 3’) else write(‘So khong chia het cho 3’);

   readln

   end.

   Bình luận