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 | 
 

 Các loại số đặc biệ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 đề: Các loại số đặc biệt   13/11/2014, 12:14

Bài 1: Cho các số tự nhiên n. Tồn tại hay không các số “sinh đôi”. Trong các số n, n+1, …,2n (giải thích:các số “sinh đôi” là các số nguyên tố mà khoảng cách giữa chúng bằng 2
Bài giải:
uses crt;
var n,dem,i:integer;
{-----------------}
function ngto(n:integer):boolean;
var i:integer;
begin
i:=2;
while (n mod i<>0) and (n>i) do inc(i);
if n=i then ngto:=true
else ngto:=false;
end;
{-----------------}
begin
clrscr;
write('Nhap n:');readln(n);
dem:=0;
for i:=n to 2*n-2 do
if (ngto(i)) and (ngto(i+2)) then inc(dem);
if dem<>0 then
begin
writeln('Co ton tai cac cap so sinh doi trong khoang ',n,'...',2*n);
writeln('Cac cap so do la:');
for i:=n to 2*n-2 do
if (ngto(i)) and (ngto(i+2)) then writeln(i,' va ',i+2);
end
else writeln('Khong ton tai cac cap so sinh doi trong khoang ',n,'...',2*n);
readln;
end.

Bài 2: Cho số tự nhiên n nhập từ bàn phím. Lập chương trình kiểm tra xem n có phải là số hoàn chỉnh hay không? (số hoàn chỉnh là số bằng tổng tất cả các ước số nguyên dương khác 1 của mình)
Bài giải:
uses crt;
var n,tong,i:word;
begin
clrscr;
write('nhap n:');readln(n);
tong:=0;
for i:=2 to n-1 do
if (n mod i=0) then inc(tong,i);
if (n=tong) and (n>=4) then writeln(n,' la so hoan chinh')
else writeln(n,' khong phai la so hoan chinh');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Các loại số đặc biệt
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

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 :: Bài tập :: Các vòng lặp-
Chuyển đến