(Ptso.*) Phân tích 1 số tự nhiên thành tổng các số tự nhiên khácnhau nhỏ hơn nó. pascal ạ
Đọc tiếp
(Ptso.*) Phân tích 1 số tự nhiên thành tổng các số tự nhiên khác
nhau nhỏ hơn nó. pascal ạ
Những câu hỏi liên quan
híc sắp thi rồi giúp em với ạ plssssssssscâ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ôngcâ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
Đọc tiếp
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
a, Viết tập hợp B các số tự nhiên bắt đầu bằng số 3 có khoảng cách là 5 nhưng nhỏ hơn 60
Xem chi tiết
b,Viết tập hợp A các số tự nhiên chia hết cho 5 và nhỏ hơn 40
c, Tính số phần tử của mỗi tập hợp trên và tính tổng các phân tử của nó
Tìm 1 số tự nhiên có 2 chữ số biết số mới viết theo thứ tự ngược lại nhân với số cần tìm thì được tích là 3154.
Số nhỏ hơn trong 2 số đó lớn hơn tổng các chữ số của nó là 27.
Hãy phân tích 20 thành tổng các số tự nhiên sao cho tích các số tự nhiên ấy cũng bằng 20.
Phân tích 20 thành tích các số tự nhiên khác 1.
20 = 2 x 2 x 5 = 4 x 5 = 10 x 2
Trường hợp : 2 x 2 x 5 = 20 thì tổng của chúng là : 2+ 2 + 5 = 9. Vậy để tổng bằng 20 thì phải thêm vào : 20 - 9 = 11, ta thay 11 bằng tổng của 11 số 1 khi đó tích sẽ không thay đổi.
Lí luận tương tự với các trường hợp : 20 = 4 x 5 và 20 = 10 x 2. Ta có 3 cách phân tích như sau :
Cách 1 :
20 = 2 x 2 x 5 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1.
20 = 2 + 2 + 5 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1.
Cách 2 :
20 = 4 x 5 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1.
20 = 4 + 5 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1.
Cách 3 :
20 = 10 x 2 x 1 x 1 x 1 x 1 x 1 x 1 x 1 x 1.
20 = 10 + 2 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1.
Đúng 0
Bình luận (0)
Phân tích 20 thành tổng của các số tự nhiên sao cho tích các số tự nhiên ấy cũng bằng 20. Có thể làm như thế với bất kì số tự nhiên nào được không?
20=1×20=2×10=4×5 Vậy có các lời giải là: 2+10+ 8 con số 1, 4+5+11số 1
Đúng 0
Bình luận (0)
Phân tích 20 thành tổng của các số tự nhiên sao cho tích các số tự nhiên ấy cũng bằng 20. Có thể làm như thế với bất kì số tự nhiên nào được không?
20=1×20=2×10=4×5
Vậy có các lời giải là: 2+10+ 8 con số 1, 4+5+11số 1
Đúng 0
Bình luận (0)
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.
Đúng 2
Bình luận (1)
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
Đúng 1
Bình luận (3)
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (1)
Cho 12 số tự nhiên liên tiếp . Chứng minh rằng tồn tại 1 số trong các số đó nhỏ hơn nửa tổng các ước của nó.