Cho dãy A gồm N phân tử A1…An.Nhập vào x liệt kê tất cả các giá trị i và ai tại Ai=x b) liệt kê tất cả các vị trí và Ai là số nguyên tố. Giúp mình v

0 bình luận về “Cho dãy A gồm N phân tử A1…An.Nhập vào x liệt kê tất cả các giá trị i và ai tại Ai=x b) liệt kê tất cả các vị trí và Ai là số nguyên tố. Giúp mình v”

1. Chương trình:

   uses crt;
   var a:array[1..1000000] of longint;
       n,x,i:longint;
   function nt(x:longint):boolean;
   var i:longint;
   begin
   nt:=false;
   for i:=2 to trunc(sqrt(x)) do
   if (x<2) or (x mod i=0) then exit;
   nt:=true;
   end;
   begin
   clrscr;
   write(‘Nhap do dai cua day: ‘);readln(n);
   for i:=1 to n do
     begin
     write(‘a[‘,i,’]=’);readln(a[i]);
     end;
   clrscr;
   write(‘Nhap x=’);readln(x);
   writeln(‘Cac chi so va gia tri co phan tu = ‘,x);
   for i:=1 to n do
   if a[i]=x then writeln(‘a[‘,i,’]=’,a[i]);
   writeln(‘Cac chi so va gia tri co phan tu la so nguyen to’);
   for i:=1 to n do
   if nt(a[i])=true then writeln(‘a[‘,i,’]=’,a[i]);
   readln;
   end.

   Bình luận