Viết chương trình nhập vào n một dãy số nguyên và thực hiện các thao tác sau
– In ra các số nguyên tố có trong dãy và chỉ ra vị trí của số đó
– In ra các số đối xứng có trong dãy
Viết chương trình nhập vào n một dãy số nguyên và thực hiện các thao tác sau
– In ra các số nguyên tố có trong dãy và chỉ ra vị trí của số đó
– In ra các số đối xứng có trong dãy
uses crt;
var n,i:longint; a:array[1..10000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while (a<>1)and(a mod i<>0) do inc(i);
nt:=i=a;
end;
function dx(a:longint):boolean;
var i:longint; h,s:string;
begin
str(a,s); h:=”;
for i:=length(s) downto 1 do h:=h+s[i];
dx:=s=h;
end;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘Cac so nguyen to va vi tri:’);
for i:=1 to n do if nt(a[i]) then writeln(i,’: ‘,a[i]);
writeln(‘Cac so doi xung:’);
for i:=1 to n do if dx(a[i]) then writeln(a[i]);
readln
end.
uses crt;
var i,n:longint;
a:array[1..100] of longint;
function snt(x:longint):boolean;
var t1:longint;
begin
if x<2 then snt:=false
else
begin
snt:=true;
for t1:=2 to round(sqrt(x)) do
if x mod t1=0 then exit(false)
end;
end;
function sdx(x:longint):boolean;
var st:string;
t2:longint;
begin
sdx:=true;
str(x,st);
for t2:=1 to length(st) div 2 do
if st[t2]<>st[length(st)-t2+1] then exit(false);
end;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]’);
readln(a[i]);
end;
writeln(‘Cac so nguyen to co trong day:’);
for i:=1 to n do
if snt(a[i]) then writeln(‘so ‘,a[i],’ vi tri ‘,i);
writeln(‘Cac so doi xung co trong day:’);
for i:=1 to n do
if sdx(a[i]) then write(a[i],’ ‘);
readln
END.