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.

nguyenhoanguyentho

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 14 xem

1 trả lời

Thích Trả lời

598119874423609

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.

Vote (0) Phản hồi (0) 2 năm trước

giangmainzed

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Calli: "Không biết" Ko app Tone xanh dương hoặc hường

Cho A(x) = mx^2 + 2mx – 3 . Tìm m để A(x) có nghiệm x = -1

a,tìm số tự nhiên x để A=2021:(11-x) để x có giá trị lớn nhất.Tìm giá trị lớn nhất đó. b, tìm các chữ số a,b,c,d biết rằng :abc ×5=dad

Cho hình hộp chữ nhật ABCD.A' B' C' D' có AB : BC : AA’ tỉ lệ với 2:3:6 và A’C = 35 cm. Tính diện tích toàn phần của hình hộp đó.

Phân tích đa thức thành nhân tử: `2(x²-6x+1 )+ 5(x²-6x+1)(x²+1) + 2(x²+1)²`

Calli: "Ai biết" Ko app Tone xanh dương hoặc hường

vô nhóm ko bà con cô bác vẽ anime

Anh/ chị có đồng tình với ý kiến '' làm việc thiện không khó nhưng cũng không đơn giản, cần có lí trí '' được nêu trong văn bản không ? Vì sao , ( Trình bày trong khoảng 3 - 5 dòng )

Một quần thể thực vật giao phấn, ở thế hệ xuất phát (P) chỉ có 2 nhóm kiểu hình, trong đó 480 cây có kiểu gen AB/ab De/De và 720 cây có kiểu gen Ab/aB De/De. Quá trình ngẫu phối thu được F1 có tỉ lệ kiểu gen ab/ab De/De chiếm 5,76%. Biết rằng mỗi gen quy định một tính trạng, alen trội là trội hoàn toàn, mọi diễn biến của quá trình sinh hạt phấn và sinh noãn giống nhau và quần thể không có tác động của các nhân tố tiến hóa. Theo lí thuyết, có bao nhiêu phát biểu sau đây đúng? I. Ở F3 có tối đa 10 loại kiểu gen. II. Ở F1 có 12,52% số cá thể dị hợp về 2 cặp gen. III. Ở F1 số cây có kiểu hình trội về 3 tính trạng chiếm 56,3%. IV. Trong số các cây mang kiểu hình trội về 3 tính trạng ở F1, số cây đồng hợp chiếm 10,2%. Số phát biểu đúng?

.......lm cho mk vs...............

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến