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.

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

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

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.

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.     

*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.