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íc sắp thi rồi giúp em với ạ plsssssssss
câu hỏi gồm 3 câu ạ
câu 1:viết chương trình nhập 1 số tự nhiên N và kiểm tra xem N có là số hoàn hảo không? (số hoàn hảo là số có tổng các ước tự nhiên nhỏ hơn nó bằng chính nó)
câu 2:viết chương trình nhập 1 số nguyên N và kiểm tra xem N có là số nguyên tố không
câu 3: viết chương trình nhập 1 mảng A gồm N số nguyên và xuất ra màn hình số nhỏ nhất trong mảng
Số hoàn hảo là số tự nhiên có giá trị bằng tổng các ước thực sự của nó(các ước nhỏ hơn chính nó) V.dụ 1 vài số hoàn hảo 6:1+2+3=6 ;28:1+2+4+7+14=28 Em hãy viết chương trình xác định số hoàn hảo đầu tiên lớn hơn số tự nhiên n được nhập vào từ bàn phím
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.
a) Số nguyên a được gọi là số hoàn thiện khi và chỉ khi tổng các ước dương của a (trừ ước a) bằng chính nó. Ví dụ 6 là số hoàn chỉnh vì 6 có các ước là 1,2,3 và tổng các ước là 1+2+3=6. Viết trương chình nhập vào số dương n từ bàn phím (0≤ n ≤ 1000). In lên màn hình tất cả các số hoàn chỉnh dương nhỏ hơn hoặc bằng n.
b)Trong toán học n! (đọc là giai thừa) dược định nghĩa như sau:
Qui ước: 0!=1
n!=1.2.3...n
Vd: 4!=1.2.3.4=24
Viết trương trình nhập từ bàn phím số nguyên n (0≤ n ≤ 20). Tính và in lên màn hình n!
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.
viết chương trình nhập vào số tự nhiên n và kiểm tra n có phải là số hoàn chỉnh không
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.
Một số có tổng các ước nhỏ hơn nó mà bằng chính nó được gọi là số hoàn chỉnh. (Số 6 có các ước nhỏ hơn nó là 1, 2, 3. Tổng các ước số: 1 + 2 + 3 = 6. Nên 6 được gọi là số hoàn chỉnh). Viết chương trình C++ nhập một dãy số nguyên gồm có N phần tử. N là một số nguyên được nhập từ bàn phím (0
NGÔN NGỮ C giúp mk với mk cảm ơn
8.Viết chương trình in ra các số nguyên tố từ 2 đến n, với n nhập từ bàn phím.
9.Viết chương trình kiểm tra xem một số có là số hoàn chỉnh hay không?
10.Nhập tử số và mẫu số của một phân số, in phân số đó dưới dạng tối giản.
uses crt;
var i:integer;
begin
clrscr;
for i:=0 to 9999 do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
readln;
end.
1) mô tả thuật toán và viết chương trình kiểm tra một số tự nhiên n nhập vào từ bàn phím có phải là số nguyên tố hay không?
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
Câu 1:
uses crt;
var kt,n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
viết chương trình nhập số tự nhiên N từ bàn phím , kiểm tra số N đó có phải là số nguyên tố không ?
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.
Một số bằng tổng các ước của nó (không kể chính nó) gọi là số hoàn chỉnh.
Ví dụ: các ước của 6 (không kể chính nó) là 1;2;3
Ta có 1 + 2 + 3 = 6. Số 6 là số hoàn chỉnh
Tìm các số hoàn chỉnh trong các số sau: 12;28;476
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