Một số nguyên dương được gọi là số đẹp nếu tổng bình phương các chữ số của nó là một số nguyên tố. Ví dụ: 12 là số đẹp vì : 1^2+2^2=1+4=5 là một số nguyên tố. Nhập số tự nhiên N từ bàn phím (0<N<32767). Viết chương trình tìm số đẹp thứ N. (Spam, trả lời không đúng với yêu c

quynhviphy01662235088

2 năm trước

Một số nguyên dương được gọi là số đẹp nếu tổng bình phương các chữ số của nó là một số nguyên tố. Ví dụ: 12 là số đẹp vì : 1^2+2^2=1+4=5 là một số nguyên tố. Nhập số tự nhiên N từ bàn phím (0<N<32767). Viết chương trình tìm số đẹp thứ N. (Spam, trả lời không đúng với yêu cầu câu hỏi). Những trường hợp như trên sẽ bị báo cáo vi phạm. Trả lời đung sẽ vote max

Loga Sinh Học lớp 12

0 lượt thích 41 xem

1 trả lời

Thích Trả lời

khunglongme77

uses crt;

var n,j,d:word;

function so(n:word):word;

var tam:byte;

begin

so:=0;

while n>0 do

begin

tam:=n mod 10;

n:=n div 10;

so:=so+(tam*tam);

end;

function snt(x:word):boolean;

var i:word;

begin

if x<2 then snt:=false

else

begin

snt:=true;

for i:=2 to trunc(sqrt(x)) do

if x mod i=0 then exit(false);

end;

BEGIN

clrscr;

write('Nhap N:'); readln(n);

j:=1;

repeat

inc(j);

if snt(so(j)) then dec(n);

until

n=0;

write(j);

readln

END.

Chúc bạn học tốt!

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

ngoc2709

uses crt;
var i,n,m:longint; a:array[1..1000000]of longint;
function tong(a:longint):longint;
begin
tong:=0;
repeat
inc(tong,sqr(a mod 10));
a:=a div 10;
until a=0;
end;
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;
begin
clrscr;
write('N (0<N<32767)= ');readln(n);
repeat
inc(i);
if nt(tong(i)) then inc(m);
until m=n;
writeln(i);
readln
end.

Test:

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

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

Bài toán 9 : Một ô tô đi từ A đến B mất 2 giờ 30 phút . Nếu nó đi với vận tốc nhỏ hơn 10 km/h thì nó sẽ đến chậm hơn 50 phút . Tính quãng dường AB ? Bài toán 10 : Một canô chạy xuôi dòng từ A đến B xong chạy ngược dòng từ B về A . Thời gian đi xuối ít hơn thời gian đi ngược là 40 phút . Biết vận tốc dòng nước là 3 km/h ; vận tốc của canô là 27 km/h . Tính khoảng cách AB ? Bài toán 11 : Một xuồng máy đi xuôi từ bến A đến bến B sau đó lại ngược từ B đến A .Thời gian đi xuối ít hơn thời gian đi ngược là 20 phút . Biết vận tốc dòng nước là 2 km/h ; vận tốc của xuồng máy là 20 km/h . Tính khoảng cách 2 bến AB?

1m ²=........................dm ²

315cm =....m; 234cm= ...m; 506cm = ....m; 34dm=.....m

m ² là gì???????????????????????

Các bạn giải giúp mik câu 3 nha k sao chép nha

Giúp mibh câu 3 vs có giải thích

Write 150 words about adantage and dis adivantage of learning english. Viết 150 câu về ưu điểm và nhược điểm tiếng anh.

Một ô tô đi từ Hà Nội đến Thanh Hóa ,giờ thứ nhất đi được 1/4 quãng đường ,giờ thứ hai đi được 2/5 quãng đường .Cả hai giờ ô tô đi được số phần quãng đường ?

1) Trình bày sự phân bố dân cư Bắc Mĩ? 2) Vì sao nên công nghiệp Bắc Mĩ phát triển đat đến trình độ cao 3) Trình bày đặc điểm công nhiệp Bắc Mĩ 4) Nguyên nhân nào làm cho Trung và Nam Mĩ có gần đủ các điều kiện khí hậu ở trê Trái Đất ? Giair thích về có đặc điểm ,địa hình như thê nào? 5)Giair thíc vì sao núi An-đét lại có hoang mạc? 6) Qúa trinh đô thị hóa ở Trung và Nam Mĩ đã làm nảy sinh những vấn đề gì về kinh tế - xã hội 7) Tại sao đặt vấn đề bảo vệ rừng A-MA-Dôn

Tại sao nói CM Tháng Tám thành công ít đổ máu? Có phải là do may mắn không? Vì sao?

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