(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 ạ
K
Khách
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.
Những câu hỏi liên quan
CM
12 tháng 2 2019
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.
CM
24 tháng 11 2017
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
CM
18 tháng 10 2017
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
ML
12 tháng 3 2023
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.
28 tháng 2 2021
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.
