viết chương trình nhập vào 1 số nguyên, kiểm tra số nguyên đó có chia hết cho 3 và 5 hay không chương trình pascal ạ

0 bình luận về “viết chương trình nhập vào 1 số nguyên, kiểm tra số nguyên đó có chia hết cho 3 và 5 hay không chương trình pascal ạ”

1. Program CH;
   Uses crt;
   Var x: integer;
   Begin
         Clrscr;
         Write(‘Nhap so nguyen: ‘); readln(x);
         If (x mod 3 = 0) and (x mod 5 = 0) then writeln(‘Co’)
         Else writeln(‘Khong’);
   Readln
   End.

   Bình luận

2. program ct_btpt;

   uses crt;

     var a: integer;

   begin

     clrscr;

     write(‘Nhap a = ‘); readln(a);

     if (a mod 3 = 0) and (a mod 5 = 0) then write(a, ‘ chia het cho ca 3 va 5’) else

          write(a, ‘ khong chia het cho ca 3 va 5’);

     readln

   end.

   Bình luận