Số hoàn hảo là số nguyên tố mà tổng các chữ số cũng là số nguyên tố.nhập hai số a và b,hãy đếm xem từ a đến b có bao nhiêu số hoàn hảo
Vd: 2 14
Xuất ra màn hình 2 3 5 7 11
Giải thích: 11= 1+1=2; 2 là SNT.
Số hoàn hảo là số nguyên tố mà tổng các chữ số cũng là số nguyên tố.nhập hai số a và b,hãy đếm xem từ a đến b có bao nhiêu số hoàn hảo
Vd: 2 14
Xuất ra màn hình 2 3 5 7 11
Giải thích: 11= 1+1=2; 2 là SNT.
uses crt;
var i,a,b:longint;
{—Ham-hoan-hao—}
function hh(r:longint):boolean;
var i:longint;
begin
hh:=true;
if r<2 then exit(false);
for i:=2 to trunc(sqrt(r)) do
if r mod i=0 then exit(false);
hh:=true;
end;
{—Kiem-tra-chu-so—}
function s(r:longint):longint;
begin
s:=0;
while r<>0 do
begin
s:=s+(r mod 10);
r:=r div 10;
end;
end;
{—Chuong-trinh-chinh—}
begin
clrscr;
readln(a,b);
for i:=a to b do if (hh(i)) and (hh(s(i))) then write(i,’ ‘);
readln
end.
uses crt;
var i,a,b: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 tong(a:longint):longint;
begin
tong:=0;
repeat
inc(tong,a mod 10);
a:=a div 10;
until a=0;
end;
begin
clrscr;
readln(a,b);
for i:=a to b do
if (nt(i))and(nt(tong(i))) then write(i,’ ‘);
readln
end.