Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Số song tố

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Số song tố   25/1/2015, 14:45

Số song tố là số nguyên tố có tổng các chữ số cũng là số nguyên tố.
Ví dụ: 11 là số song tố vì 11 là số nguyên tố và 1+1=2 là số nguyên tố
Viết chương trình nhập vào một số nguyên dương n
a/ Kiểm tra n có phải là số nguyên tố hay không?
b/ In ra màn hình câc số song tố không lớn hơn n.
c/ In ra màn hình các cặp số nguyên tố sinh đổi bé hơn hoặc bằng n.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Re: Số song tố   25/1/2015, 14:46

Bì giải:
uses crt;
var n,i: word;
function snt(n: word): boolean;
var i: word;
d: byte;
begin
d:= 0;
for i:= 1 to n do if n mod i = 0 then inc(d);
if d=2 then snt:= true else snt:= false;
end;
function tcs(n: word): byte;
var s,t: word;
begin
s:= n; t:= 0;
repeat
t:= t+(s mod 10);
s:= s div 10;
until s=0;
tcs:= t;
end;
begin
clrscr;
write('Nhap vao mot so: '); readln(n);
if snt(n) and snt(tcs(n)) then writeln(n,' la so song to.')
else writeln(n,' khong phai la so song to.');
writeln('Cac so song to ko lon hon ',n,': ');
for i:= 1 to n do if snt(i) and snt(tcs(i)) then write(i:5);
writeln;
writeln('Cac cap so nguyen to sinh doi khong lon hon ',n,': ');
for i:= 3 to n-2 do if snt(i) and snt(i+2) then writeln(i,' ; ',i+2);
readln
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Số song tố
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Vì Đó Là Em - Song Nhi
» Thơ Song Thất Lục Bát
» [Vocaloid Lyrics] Lulila Lulia The Resounding Song
» Thẩn thơ Lục bát & Song thất lục bát
» Thơ Song tứ lục bát

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Thảo luận-
Chuyển đến