Bài 8. Lặp với số lần chưa biết trước

Hương Mai

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ó .

Nguyễn Lê Phước Thịnh
6 tháng 4 2021 lúc 20:11

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.

Bình luận (0)
nguyễn an phát
6 tháng 4 2021 lúc 21:04

Bình luận (0)

Các câu hỏi tương tự
nguyễn an phát
Xem chi tiết
Ánh sao
Xem chi tiết
Đào Tất Thắng
Xem chi tiết
Trúc Anh
Xem chi tiết
maxi haco
Xem chi tiết
MINH NGỌC
Xem chi tiết
Linh lung
Xem chi tiết
kimizuki hoshimya
Xem chi tiết
Giap Nguyen Van
Xem chi tiết