Viết chương trình tìm tất cả các số có 3 chữ số sao cho tổng tất cả các chữ số bằng tích của chúng. VD: a+b+c = a*b*c
60 điểm
NguyenChiHieu
Viết chương trình tìm tất cả các số có 3 chữ số sao cho tổng tất cả các chữ số bằng tích của chúng. VD: a+b+c = a*b*c
Trả lời
Tổng hợp câu trả lời (1)
NguyenHieu
08:12:08 16-Dec-2021
Program bt5_18;
Var a,b,c:longint;
Begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a+b+c=a*b*c then writeln(a,b,c);
readln;
End.
Câu hỏi hay nhất cùng chủ đề
- Cho dãy gồm n số. Tìm dãy con lớn nhất đơn điệu (liên tục tăng, giảm hoặc giảm, tăng).
- Biến là … A. Là đại lượng có giá trị không thay đổi trong suốt quá trình thực hiện chương trình B. Là đại lượng có giá trị có thể được thay đổi trong quá trình thực hiện chương trình C. Tên không cần theo nguyên tắc đặt tên D. Không cần khai báo trước khi sử dụng
- Viết chương trình tìm tất cả các số có 3 chữ số sao cho tổng tất cả các chữ số bằng tích của chúng. VD: a+b+c = a*b*c
- Một số được gọi là số bậc thang nếu biểu diễn thập phân của nó có nhiều hơn một chữ số đồng thời theo chiều từ trái qua phải, chữ số đứng sau không nhỏ hơn chữ số đứng trước. Viết chương trình in ra các số bậc thang trong đoạn [n1, n2] với n1, n2 được nhập từ bàn phím.
- Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh A. Write(a:8:3, b:8); B. Readln(a,b); C. Writeln(a:8, b:8:3); D. Writeln(a:8:3, b:8:3);
CÔNG TY TNHH TOP EDU
Số giấy chứng nhận đăng kí kinh doanh: 0109850622, cấp ngày 09/11/2021, nơi cấp Sở Kế Hoạch và Đầu tư Thành phố Hà Nội
Hãy giúp mọi người biết câu trả lời này thế nào?