nhập dãy số nguyên n phần tử n<=120 .cho biết có bao nhiêu số hạng ko chia hết cho 3

0 bình luận về “nhập dãy số nguyên n phần tử n<=120 .cho biết có bao nhiêu số hạng ko chia hết cho 3”

1. program khong_chia_het3;

   uses crt;

   var A:array[1..120] of integer;

         n,i,d:byte;

   begin

           clrscr;

           write(‘Nhap n: ‘);  readln(n);

           d:=0;

           for i:=1 to n do

                   begin

                          write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                           if A[i] mod 3<>0 then d:=d+1;

                   end;

           write(‘Co ‘,d,’ so khong chia het cho 3′);

           readln;

   end.

   Bình luận

2. program khong_chia_het3;

   uses crt;

   var A:array[1..120] of integer;

         n,i,d:byte;

   begin

           clrscr;

           write(‘Nhap n: ‘);  readln(n);

           d:=0;

           for i:=1 to n do

     begin write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

    if A[i] mod 3<>0 then d:=d+1;

   write(‘Co ‘,d,’ so khong chia het cho 3′);

   readln;

   end.

   Bình luận