Viết chương trình nhập mảng A gồm n phần tử nguyên. Hãy liệt kê các số chẵn (lẻ/chia hết cho 3/số nguyên tố) ra màn hình? Giúp mình

Viết chương trình nhập mảng A gồm n phần tử nguyên. Hãy liệt kê các số chẵn (lẻ/chia hết cho 3/số nguyên tố) ra màn hình?
Giúp mình với đang gấp ạ

0 bình luận về “Viết chương trình nhập mảng A gồm n phần tử nguyên. Hãy liệt kê các số chẵn (lẻ/chia hết cho 3/số nguyên tố) ra màn hình? Giúp mình”

  1. In so chan:

    #include<bits/stdc++.h>

    using namespace std;

    int
    main ()
    {

       long long n, a[10001];

       cin >> n;

      for (int i = 1; i <= n; i++)

         cin >> a[i];

      for (int i = 1; i <= n; i++)

         if (a[i] % 2 == 0)

           cout << a[i] << ” “;
    }

    In so le:

    #include<bits/stdc++.h>

    using namespace std;

    int
    main ()

    {

      long long n, a[10001];

       cin >> n;

      for (int i = 1; I <= n; i++)

         cin >> a[i];

    for (int i = 1; I <= n; I++)

        if (a[i] % 2 != 0)
           cout << a[i];

    }

    so chia het cho 3:

    #include<bits/stdc++.h>

    using namespace std;

    int
    main ()
    {

       long long n, a[10001];

       cin >> n;

      for (int i = 1; I <= n; i++)

         cin >> a[i];

    for (int i = 1; I <= n; I++)

        if (a[i] % 3== 0)
           cout << a[i];

    }

    Bình luận
  2. program Mang;

    uses crt;

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

          n,i,d,j: integer;

    Begin

             write(‘Nhap so phan tu cua mang: ‘); readln(n);

             for i:=1 to n do

             begin

                      write(‘A[‘,i,’]=’); readln(A[i]);

             end;

             write(‘Cac so chan: ‘);

             for i:=1 to n do

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

             writeln;

             write(‘Cac so le: ‘);

             for i:=1 to n do

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

             writeln;

             write(‘Cac so chia het cho 3: ‘);

             for i:=1 to n do

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

             writeln;

             write(‘Cac so nguyen to: ‘);

             for i:=1 to n do

             begin

                     d:=0;

                     for j:=1 to A[i] do

                     if A[i] mod j=0 then d:=d+1;

                     if d=2 then write(A[i],’  ‘);

             end;

             readln

    End.

    Bình luận

Viết một bình luận