viết chương trình nhập vào dãy số nguyên in ra màn hình chia hết cho 3 và không chia hết cho 2 giải hộ em với ạ

0 bình luận về “viết chương trình nhập vào dãy số nguyên in ra màn hình chia hết cho 3 và không chia hết cho 2 giải hộ em với ạ”

1. program chia_3_khong_2;

   uses crt;

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

         n,i,d:integer;

   begin

        clrscr;

        write(‘Nhap so luong phan tu cua day: ‘);  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) and (A[i] mod 2<>0) then d:=d+1;

              end;

        write(‘Co ‘d,’ so thoa man’);

        for i:=1 to n do

             if (A[i] mod 3=0) and (A[i] mod 2<>0) then write(A[i],’ ‘);

        readln;

   end.

   Bình luận

2. uses crt;

   var i,n:longint;

         a:array[1..1000000] of longint;

   begin

   clrscr;

   readln(n);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]=’);

   readln(a[i]);

   end;

   for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 2<>0) then write(a[i],’ ‘);

   readln

   end.

   Bình luận