Question

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

Answer 1

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

Answer 2

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.

Answer 3

program bai1;

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*100+b*10+c)=(a*a*a+b*b*b+c*c*c) then writeln(a*100+b*10+c);

readln

end.