pascal 11

[0miu0_n_n]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

hãy tìm tất cả các số có 3 số biết tổng lập phương các số bằng chính số đó

 

[hue10tink53]

ý tưởng

mình nghĩ bài này chỉ duyệnt từ 100 đến 999 là được
procedure bailam;
uses crt;
var
n:integer;
a,b,c:byte;
begin
clrscr;
writeln('cac so co 3 chu so ma tong lap phuong cua cac chu so bang chinh so do la');
for n:=100 to 999 do begin
a:= n div 100;
b:= (n mod 100) div 10;
c:= n mod 10;
if a*a*a+ b*b*b+c*c*c=n then writeln(n);
end;
readln
end.