Anh em giúp bài này nhé là Tìm các số trong khoảng từ 0 đến 999 bằng tổng lập phương các chữ số của nó ( những chữ số này được gọi làAMSTRONG
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.
uses crt;
var i,dv,ch,tr,a:integer;
begin
clrscr;
for i:=0 to 999 do
begin
a:=i;
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100;
if dv*dv*dv+ch*ch*ch+tr*tr*tr=a then write(a:4);
end;
readln;
end.
Câu hỏi của Lê Phương Thảo - Toán lớp 6 - Học toán với OnlineMath
Bạn có thể liệt kê tất cả các cặp số tự nhiên (a,b) mà tích của chúng bằng 1000,
một trong hai số tự nhiên phải lớn hơn hoặc bằng 100 (số có 3 chữ số)
a . . .b
2 × 500 = 1000
4 × 250 = 1000
5 × 200 = 1000
8 × 125 = 1000
10 × 100 = 1000
20 × 50 = 1000 (không kể, vì 5 chỉ có 2 chữ số)
Trong 5 cặp (a,b) liệt kê ở trên ta thấy chỉ có cặp (8, 125) thỏa mãn
điều kiện "a là tổng các chữ số trong b"
Vậy số phải tìm là 125
125 × (1 + 2 + 5) = 1000
**** bn yêu
Gọi số Cần tìm là abc(a khác 0; a;b;c thuộc N và < 10)
abc(a+b+c)=1000
a.100+b.10+c=1000:(a+b+c)
100a+10b+c=1000:a+1000:b+1000:c
Tự làm tiếp nha
Anime My Love
Giải thưởng hỏi đáp - Giải toán trên mạng - Giúp tôi giải toán - Hỏi đáp ...
3Gọi số đó là ab
Theo bài ra ta có ab+a+b=55
Nên 10a + b+a +b=55
Nên 11 a +2.b =55
a= 6 thì 11.a=66>55 (vô nghiệm) nên a<6
a=5 ta có 11.5+2.b=55
Nên b=0
Vậy ab=50
th2: a=4 ta có 11.4+2.b = 55 nên 2.b = 11 nên b = 11/2 (không thỏa mãn)
th3: a=3 ta có 3.11 +2.b =55
Nên 2.b = 55-33=22 nên b=11 (vô lí)
Vậy số cần tìm là 50
đấy bạn nguyễn trần phương thanh giải được kết quả rùi đó bạn bái bạn ấy làm sư phụ đi
Trong trường hợp tìm các số từ 0 đến 999 (tức là chấp nhận cả các số có 1 hoặc 2 chữ số):
Em có thể viết 3 vòng for lồng nhau để duyệt tất cả các giá trị của a, b và c (từ 0 đến 9)
Trong mỗi lần lặp thì kiểm tra điều kiện abc = a^3 + b^3 + c^3 bằng câu lệnh tương đương trong pascal:
a*100 + b*10 + c = a*a*a + b*b*b + c*c*c
Nếu thỏa mãn thì in ra màn hình.
Mà lớp 8 có tin học ak
Giả sử \(\overline{abc}\) (0 <= a, b, c <= 9) là số Amstrong, ta cần tìm a, b và c thỏa mãn:
100a + 10b + c = a3 + b3 + c3. Chương trình như sau:
Program Amstrong;
var a, b, c: integer;
begin
writeln( ‘ cac so Amstrong trong khoang tu 0-999 la’);
for a:= 0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*100 + b*10 +c = a*a*a + b*b*b + c*c*c
then writeln(a*100 +b*10 +c);
readln;
End.