Viết chương trình pascal tìm số nguyên tố

Dựa vào đặc điểm trên, ta sẽ giới hạn phạm vi của i là 2->n-1 thành 2->sqrt(n). Tuy nhiên, sqrt(n) với n không chính phương sẽ ra số vô tỉ, trong khi i là số nguyên, vậy cần làm tròn sqrt(n). Phạm vi mới sẽ là 2->trunc(sqrt(n)).

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.

Show

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

    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)

    YOMEDIA

      bởi thanh hằng

    Viết chương trình pascal tìm số nguyên tố
    30/10/2018

    ADMICRO/lession_isads=0

    Câu 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

      Viết chương trình pascal tìm số nguyên tố
      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!

    Viết chương trình pascal tìm số nguyên tố

    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

     

    Viết chương trình pascal tìm số nguyên tố

    Viết chương trình pascal tìm số nguyên tố

     

     

    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

    • UREKA_VIDEO-IN_IMAGE

      Viết chương trình pascal tìm số nguyên tố

      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