Tìm tất cả các số có 4 chữ số sao cho tổng các chữ số bằng 4
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.
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.
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
1111
2002
1003
Các số đó là: 13; 22; 31; 40