Số nguyên tố đơn điệu Số nguyên dương A được gọi là số nguyên tố đơn điệu nếu A thỏa mãn hai tính chất sau: - A là số nguyên tố. - A là số có ít nhất hai chữ số mà các chữ số luân phiên tăng giảm hoặc giảm tăng. Ví dụ: số 53, 79, 101, 617, 6737, 97967 là các số nguyên tố đơn điệu. Yêu cầu: Viết chương trình cho phép nhập vào một dãy số nguyên có N phần tử (N20), các phần tử của dãy có giá trị nhỏ hơn 106. a) Xuất ra màn hình số lượng các số nguyên tố đơn điệu có trong dãy số trên. b) Nhập vào số nguyên k (1 < k < 10), xuất ra màn hình số nguyên tố đơn điệu lớn nhất có k chữ số.

uses crt;
type mang=array[1..100] of integer;
var i,n,c,k,t,max:integer;
a:mang;
function kt(n:integer):boolean;
var i:integer;
begin
 kt:=true;
 for i:=2 to n-1 do
  if n mod i=0 then kt:=false;
end;

function kt2(n:integer):boolean;
var k,i:integer;
a:mang;
begin
k:=0;
kt2:=true;
 while n<>0 do
 begin
  k:=k+1;
  a[k]:=n mod 10;
  n:=n div 10;
 end;
 if k=1 then kt2:=false
 else
 for i:=1 to k do
  if a[i]=a[i+1] then
  begin
   kt2:=false;
   break;
  end;
end;

begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
c:=0;
for i:=1 to n do
 if (kt(a[i]))and(kt2(a[i])) then inc(c);
writeln('a)',c);
repeat
 write('nhap so k:');
 readln(k);
until (k>=1) and(k<=10);
t:=1;
for i:=1 to k do
 t:=t*10;
 t:=t-1;
for i:=1 to t do
 if kt(i) and kt2(i) then max:=i;
write('b)',max);
readln;
end.