Viết chương trình nhập vào 1 số , kiểm tra xem số đó có chia hết cho 7

0 bình luận về “Viết chương trình nhập vào 1 số , kiểm tra xem số đó có chia hết cho 7”

1. Program BTT;
   Uses crt;
   Var a: longint;
   Begin
           Clrscr;
           Write(‘Nhap mot so bat ki: ‘); Readln(a);
           If a mod 7 = 0 then Write(a,’ la so chia het cho 7′)
           Else Write(a,’ la so khong chia het cho 7′);
           Readln
   End.

   Bình luận

2. Program Bai_1;

   Uses crt;

   Var a: integer;

   Begin

     Clrscr;

     Writeln(‘nhap a:’);

     Readln(a);

     If (a mod 7 = 0) then writeln(‘a chia het cho 7’)

     Else writeln(‘a khong chia het cho 7’);

     Readln;

   End.

   Bình luận