YOMEDIA
NONE

Viết chương trình nhập từ bàn phím số nguyên dương N (N không quá 100) và dãy A gồm N số nguyên A1, A2 …AN có giá trị tuyệt đối không lớn hơn 1000. Hãy đưa ra những thông tin sau:

a) Số lượng số chẵn và số lượng số lẻ

b) số lượng số nguyên tố trong dãy

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Nguyễn Thanh Hà

    Đối với với bài toán này thì phần kiểm tra số nguyên dương N(N<100) và dãy A gồn N số nguyên A1, A2 …AN có giá trị tuyệt đối không lớn hơn 1000 giống như bài tập 5 đã nêu ờ trên. Chúng ta chi cần giải quyết thêm 2 vấn đề nữa, đó là đếm số lượng số chẵn, số lẻ và số lượng số nguyên tố trong dãy.

    Chưntg trình:

    progran baitap6_chuong4;

    uses crt;

    var

    array[1..100] of integer;

    if: boolean;

    N, i„ l: integer; so_nt, so_chan: integer;

    begin

    for i := -1000 to 1000 do if i>0 then NT:= false;

    so_chan:=0; so_nt:=0;

    {Nhap vao)

    repeat

    write(‘So phan tu cua day A (N<=100), N= *);

    readln(N);

    until (N>0) and

    (N<=100);

     for i:= 1 to N do

    begin

    {kiem tra cac phan tu cua day khi nhap vao}

    repeat

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

    if (a[i]>1000) or (a[i]<-1000) then

    write(‘Moi nhap lai “);

    until (a[i]>-1000) and (a[i]<1000); = if A[i] mod 2 =0 then so_chan:= so_chan + 1; if A[i] >1 then

    begin

    u: = 2 ;

    while ((u<=sqrt (A[i])) and (A[i] mod u<>0))) do u: = u + 1; if u>sqrt(A[i]) then so_nt:= so_nt + 1;

    end,

    end;

    {In ra man hinh}

    writeln(‘So luong so chan:’,so_chan);

    writeln(‘So luong so le:’,N – so_chan);

    writeln(’So luong so nguyen tro:’, so_nt);

    readln

    End.

    Khi chạy chương trình, ta lần lượt nhập các phần tử của dãy A:

     Với N = 3 và các phần tử được nhập vào theo thứ tự:

    A[1]=5

    A[2]=7

    A[3]=900

    thì chương trình đưa ra thông báo:

    So luong so chan: 1

    So luong so le: 2

    So luong so nguyen to: 2

    – Với 5 và các phần tử được nhập vào theo thứ tự:

    A[1]=12

    A[2]=3 A[3]=5

    A[4>10 A [5] =11

    thì chương trinh đưa ra thông báo:

    So luong so chan: 2

    So luong so le: 3

    So luong so nguyen to: 3

      bởi Nguyễn Thanh Hà 23/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON