4000

3100

3010

3001

2200

2020

2002

2110

2011

2101

1300

1030

1003

1210

1120

1012

1021

1102

1201

1111

1111  ;   1300  ;  2020  ;  2110  ;  4000  ;  1201  ;  3100   

số đó là 1111

4000     1111     2200   2020     2002    3100

3001     3010     1300    1003     1030    2110

2011     2101     1210    1201     1102    1120

1012    1021

có 10  số :103 ; 112 ; 121 ; 130 ; 202 ; 211 ; 220 ; 301 ; 310 ; 400 

mai tớ cũng thi k nhé

có 10 số là số 103;112;121;130;202;211;220;301;310;400

k mình nhé

Var a,b,c,d:integer;

Begin

Writeln('Cac so can tim la');

For a:=1 to 9 do

For b:=0 to 9 do

For c:=0 to 9 do

For d:=0 to 9 do

If a + b + c + d = 20 then

writeln(a,b,c,d);

readln;

End.

1111

1220

1012

1021

1202

2200

2020

2011

2110

Vì chữ số hàng nghìn gấp 4 lần chữ số hàng trăm nên chữ số hàng trăm chỉ có thể là: 1 hoặc 2

th1: Chữ số hàng trăm là 1 

Chữ số hàng nghìn là: 1 \(\times\) 4 = 4

Tổng các chữ số hàng chục và hàng đơn vị là: 1 + 4 = 5

vì : 0 + 5 = 5;  2 + 3 = 5

Vậy các số thỏa mãn đề bài là:

4105; 4150; 4123; 4132

Th2: chữ số hàng trăm là: 2  

Chữ số hàng nghìn là: 2 \(\times\) 4 = 8

Tổng chữ số hàng chục và hàng đơn vị là: 2 + 8 = 10

vì  1 + 9 =10;   3 + 7 = 10;       4+ 6 = 10

Vậy các số thỏa mãn đề bài là: 

8219; 8291; 8237; 8273; 8246; 8264; 

Kết luận các số có 4 chữ số khác nhau mà chữ số hàng nghìn gấp 4 lần chữ số hàng trăm, tổng chữ số hàng nghìn và hàng trăm bằng tổng chữ số hàng chục và hàng đơn vị là:

4105; 4150;  4123; 4132;  8219; 8291; 8237; 8273; 8246; 8264