Uses crt; Var n,i,j:longint; Begin readln(n); For i:=1 to n do For j:=n downto 1 do Begin If j<i then break else If i*i*i+j*j*j=n then Write(i,' ',j); end; readln; end.
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
Uses crt;
Trả lờiXóaVar n,i,j:longint;
Begin
readln(n);
For i:=1 to n do
For j:=n downto 1 do
Begin
If j<i then break else
If i*i*i+j*j*j=n then Write(i,' ',j);
end;
readln;
end.