Chủ đề này có 2 trả lời

[khangan]

Bài 1: Viết chương trình thông báo ra màn hình các số nguyên tố có N chữ số.
Bài 2: Viết chương trình thông báo ra màn hinh các số siêu nguyên tố có N chữ số. ( Định nghĩa: Một số gọi là siêu nguyên tố neeusbanr thân nó là số nguyên tố đồng thời tổng các chữ số của nó cũng là số nguyên tố) 

[Tuongtaylor]

uses crt;

var n,d,c,i: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;

procedure chuso(n:longint; var d,c:longint);

   var t:longint;

   begin

      t:=1;

      For i:=1 to n do t:=t*10;

      d:=t div 10;

      c:=t-1;

   end;

begin

clrscr;

  write('n=');readln(n);

  chuso(n,d,c);

  for i:=d to c do If nt(i) then Writeln(i);

readln

 

end.

[Tuongtaylor]

uses crt;

var n,d,c,i: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;

procedure chuso(n:longint; var d,c:longint);

   var t:longint;

   begin

      t:=1;

      For i:=1 to n do t:=t*10;

      d:=t div 10;

      c:=t-1;

   end;

Function snt(n:longint):boolean;

begin

   If n<20 then exit(false) else

   begin

      repeat

         If not(nt(n))then exit(false);

         n:=n div 10;

      until n=0;

   end;

   exit(true);

end;

begin

clrscr;

  write('n=');readln(n);

  chuso(n,d,c);

  for i:=d to c do If snt(i) then Writeln(i);

readln

end.