Dem số nguyên to trong mảng trong pascal

Admin

Tổng số bài gửi : 22
Danh vọng : 64 Được thank : 7
Ngày Tham gia : 19/04/2013
Tuổi : 26
Đến từ : Quảng trị
Thú Cưng :

Tiêu đề: Đếm số nguyên tổ trong mảng 1 chiều   

Sun Apr 21, 2013 2:16 pm

Code:

var i,j,n:Integer;
    A:array[1..50] of Integer;
begin
      write('nhap n:');
      readln(n);
      for i:=1 to n do
      begin
            write('nhap a[',i,'] ');
            readln(a[i]);
      end;
      j:=1;
      for i:=1 to n do
            if a[i]>1 then
            begin
                repeat
                      inc(j);
                until (a[i] mod j=0);
                if j>(a[i] div 2) then inc(d);
                j:=1;
            end;
      write('Co ',d,' so nguyen to trog day');
      readln;
end.

LikeDislike

Thành viên mới

Tổng số bài gửi : 2
Danh vọng : 2 Được thank : 0
Ngày Tham gia : 30/12/2014
Tuổi : 22
Đến từ : Đắk Lắk
Thú Cưng :

Tiêu đề: Re: Đếm số nguyên tổ trong mảng 1 chiều   

Tue Dec 30, 2014 9:23 pm

inc là cái gì vậy?

LikeDislike

Viết chương trình pascal sử dụng biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình các số nguyên tố?

Viết chương trình pascal sử dụng biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình các số nguyên tố (lớp 8)

Theo dõi Vi phạm

Tin học 8 Bài 9Trắc nghiệm Tin học 8 Bài 9Giải bài tập Tin học 8 Bài 9

ADSENSE

Trả lời (1)

• bn thử xem đc ko nha (mk cx chưa thử nx)

  Cách1:

  uses crt;

  var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}

  A:array[1..1000] of longint;

  begin

  clrscr;

  Write('Nhap N: '); readln(n);

  for i:=1 to n do

  begin

  write('Nhap phan tu thu ',i,': ');

  readln(A[i]);

  end;

  Write('Cac so nguyen to co trong mang la: ');

  for i:=1 to n do

  begin

  dem:=0;

  for j:=2 to A[i]/2 do

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

  if dem=0 then write(A[i],'; ');

  end;

  end.

  Cách2:

  uses crt;

  var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}

  A:array[1..1000] of longint;

  begin

  clrscr;

  Write('Nhap N: '); readln(n);

  for i:=1 to n do

  begin

  write('Nhap phan tu thu ',i,': ');

  readln(A[i]);

  end;

  Write('Cac so nguyen to co trong mang la: ');

  for i:=1 to n do

  begin

  dem:=0;

  for j:=1 to A[i] do

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

  if dem=2 then write(A[i],'; ');

  end;

  end.

    bởi nguyen taan

  30/10/2018

  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!

NETLINK

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

• Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.

  Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
  Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

  • Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ (10 ≤ A, M  ≤ 103).
  • Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

  Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

  • Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát (mỗi số cách nhau một ký tự trắng).
  • Hàng 2: lần lượt là số áo, số mũ còn thừa.

  23/10/2022 |   0 Trả lời

• Cho 2 số nguyên a,b. thương của 2 số nguyên là c: hãy viết chương trình tính thương của 2 số đó

  Giúp em v ạ em sắp thi

  27/10/2022 |   1 Trả lời

• (0101...) là cơ sở để tạo ra ngôn ngữ gì?

  30/10/2022 |   1 Trả lời

• Máy tính chỉ có thể hiểu trực tiếp hiểu ngôn ngữ nào?

  30/10/2022 |   1 Trả lời

• Máy tính thực hiện một công việc thông qua yếu tố nào?

  30/10/2022 |   1 Trả lời

• Ngôn ngữ lập trình thông dụng ở cấp học THCS là gì?

  30/10/2022 |   1 Trả lời

• Chương trình máy tính là dãy ………. mà máy tính có thể hiểu và thực hiện được.

  30/10/2022 |   1 Trả lời

• Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng(khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả).

  Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng (khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả).

  31/10/2022 |   0 Trả lời

• Để cho Rô-bốt thực hiện được công việc nhặt rác thì con người phải làm gì?

  31/10/2022 |   1 Trả lời

• Từ khoá của một ngôn ngữ lập trình là gì?

  31/10/2022 |   1 Trả lời

• Uses là từ khóa để khai báo yếu tố gì?

  31/10/2022 |   1 Trả lời

• Dùng từ khóa nào để cho biết điểm bắt đầu và kết thúc chương trình?

  01/11/2022 |   1 Trả lời

• Viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b.

  viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b