Question

Nhập vào dãy số và in ra các số nguyên tố trong dãy.

Answer 1

Lời giải :

program hotrotinhoc ;

var kt: boolean;

i,n : integer ;

begin

kt := true ;

write('nhap do dai cua day so :'); readln(n);

for i:= 1 to trunc(sqrt(n)) do

if n mod i = 0 then kt:= false ;

if kt=true then write('Cac so nguyen to co trong day la :',i:2);

readln

end.

Answer 2

Mình làm mảng :

program hotrotinhoc ;

var a: array[1..32000] of integer ;

i,n : integer ;

function NT(n : longint ) : boolean ;

var i : longint ;

begin

kt:=true ;

for i:= 2 to trunc(sqrt(n)) do

if n mod i=0 then kt:= false ;

kt:=NT;

end;

Begin

write('Nhap do dai cua day so');

readln(n);

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:= 1 to n do

if (a[i]>=2) and (NT(a[i]) then write('Cac so nguyen to trong day la',a[i]:2);

readln

end.