Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phan Vũ Nhật Huy

VCT pascal

1) - Kiểm tra n có phải số nguyên tố không

-Xuất ra màn hình các số nguyên tố từ 2 đến n rồi tính tổng của chúng

2) - Kiểm tra n có phải số hoàn toàn không

- Xuất ra màn hình các số hoàn toàn chia hết cho 3 và 9

Nguyễn Lê Phước Thịnh
25 tháng 11 2019 lúc 21:36

1:

uses crt;
var n,t,i,j,kt:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end
else writeln(n,' khong la so nguyen to');
writeln('cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
t:=0;
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
write(i:4);
t:=t+i;
end;
end;
writeln;
writeln('tong cac so nguyen to trong khoang tu 2 toi ',n,' la: ',t);
readln;
end.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
25 tháng 11 2019 lúc 21:37

số hoàn toàn là số như thế nào bạn?

Khách vãng lai đã xóa
Nguyễn Chơn Nhân
26 tháng 11 2019 lúc 10:11

1:

var
n:int64;
function snt2(n:int64):boolean;
var
k:longint;
begin
if n<=1 then exit (false);
if (n=3) or (n=2) then exit (true);
if (n mod 2=0) or (n mod 3=0) then exit (false);
for k:=1 to (trunc(sqrt(n))+1)div 6 do
if (n mod (6*k-1)=0) or (n mod (6*k+1)=0) then exit (false);
exit(true);
end;

begin
readln (n);
if snt2(n)=true then writeln (n,'la so nguyen to')
else writeln (n,'khong la so nguyen to');
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Kỳ AnH
Xem chi tiết
Phan Vũ Nhật Huy
Xem chi tiết
khánh băng
Xem chi tiết
Đào Nguyên
Xem chi tiết
Minh Ngọc
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
Huyền Trang Trang
Xem chi tiết
Nobigamer23 23
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết