viết chương trình nhập vào số tự nhiên n từ bàn phím và kiểm tra n có phải là số hoàn chỉnh không (Số hoàn chỉnh là 1 số có tổng các ước nhỏ hơn nó bằng chính nó).
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
Program HOC24;
var i,t,k,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0; k=0;
while k=0 do
begin
n:=n+1;
for i:=1 to n do if n mod i=0 then t:=t+i;
if t=n then
begin
write(n);
k:=k+1
end else t:=0;
end;
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
a)
uses crt;
var n,i,t,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
b)
uses crt;
var gt:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(gt:0:0);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan chinh')
else writeln(n,' khong la so hoan chinh');
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Câu 1:
*Mô tả thuật toán:
Bước 1: Nhập n
Bước 2: kt←0; i←2;
Bước 3: Nếu n chia hết cho i thì kt←1;
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: Nếu kt=0 thì n là số nguyên tố
không thì không phải
Bước 7: Kết thúc
*Mô tả thuật toán:
Bước 1: Nhập n
Bước 2: kt←0; i←2;
Bước 3: Nếu n chia hết cho i thì kt←1;
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: Nếu kt=0 thì n là số nguyên tố
không thì không phải
Bước 7: Kết thúc
![](https://rs.olm.vn/images/avt/0.png?1311)
Uses crt;
var n,i,z: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(n mod i=0) then z:=z+1;
if(z=2) then writeln(z,' la so nguyen to')
else writeln(z,' khong phai la so nguyen to');
readln;
end.
program PrimeNumber;
uses crt;
var
N, i: integer;
isPrime: boolean;
begin
clrscr;
write('Enter N: ');
readln(N);
if N <= 1 then
begin
writeln('N is not a prime number');
end
else
begin
isPrime := true;
for i := 2 to trunc(sqrt(N)) do
begin
if N mod i = 0 then
begin
isPrime := false;
break;
end;
end;
if isPrime then
begin
writeln('N is a prime number');
end
else
begin
writeln('N is not a prime number');
end;
end;
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Ta có Ư(12) = {1; 2; 3; 4; 6; 12}
1 + 2 + 3 + 4 + 6 = 16
Suy ra số 12 không phải là số hoàn chỉnh
Ta có Ư(28)= {1; 2; 4; 7; 14; 28}
1 + 2 + 4 + 7 + 14 = 28
Suy ra số 28 là số hoàn chỉnh
Ta có: Ư(476) = {1; 2; 4; 7; 14; 17; 28; 34; 68; 119; 238; 476}
1 + 2 + 4 + 7 + 14 + 17+ 28 + 34 + 68 + 119 + 238 = 532
Suy ra số 476 không phải số hoàn chỉnh
Ước của 20 là 1 ; 2 ; 4 ; 5 ; 10
1 + 2 + 4 + 5 + 10 = 22
Ước của 28 là 1 ; 2 ; 4 ; 7 ; 14
1 + 2 + 4 + 7 + 14 = 28
Ước của 45 là
1 + 3 + 5 + 9 + 15 = 33
Ước của 128 là 1 ; 2 ; 4 ; 8 ; 16 ; 32 ; 64
1 + 2 + 4 + 8 + 16 + 32 + 64 = 127
Vậy 28 là số hoàn chỉnh
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan chinh')
else writeln(n,' khong la so hoan chinh');
readln;
end.
program hoan_chinh;
uses crt;
var n,i,s:integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n-1 do
begin
if n mod i = 0 then s:=s+i;
end;
if s=n then writeln('1') {n là số chính phương thì viết 1}
else writeln('0');{n không là số chính phương thì viết 0}
end.