Một số nguyên chia chẵn cho 3 nếu tổng các chữ số của nó chia chẵn cho 3. Viết chương trìn nhập số nguyên có tối đa 4 chữ số, xét xem số này có chia c

0 bình luận về “Một số nguyên chia chẵn cho 3 nếu tổng các chữ số của nó chia chẵn cho 3. Viết chương trìn nhập số nguyên có tối đa 4 chữ số, xét xem số này có chia c”

1. uses crt;

   var n:longint;

   begin

   clrscr;

   repeat write(‘Nhap so can kiem tra (0<n<1001): ‘);readln(n);

   until (0<n) and (n<1001);

   if n mod 3=0 then write(n,’ la so chia chan cho 3′)

   else write(n,’ khong la so chia chan cho 3′);

   readln;

   end.

   Bình luận