viết chương trình nhập vào 1 số m kiểm tra và in ra màn hình số đó có chia hết cho 5

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

1. Program kiemtra;

   Uses crt;

   Var m : integer ;

   Begin

   Clrscr;

   Write(‘ nhap so m’,m);

   Readln(m);

   If m mod 5 =0 then writeln(m,’ chia het cho 5′) else writeln( m,’ khong chia het cho 5′);

   Readln

   End.

   Bình luận

2. Program Kiem_tra_so;

   Uses Crt;

   Var m: integer;

   Begin

    clrscr;

     Write(‘Nhap so m: ‘); Readln(m);

     If m mod 5 = 0 then write(m, ‘chia het cho 5’);

     Else m mod 5 <> 0 then write’m, ‘khong chia het cho 5’);

   Readln;

   End.

   Bình luận