Tin học Viết chương trình nâng cao

[Minh Tí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.

Cho 1 số nguyên dương [TEX]A[/TEX] thỏa mãn tất cả điều kiện sau:
[tex]\left\{\begin{matrix} A=a^2+b^2+c^2 \\ \frac{1}{a}+\frac{1}{b}+\frac{1}{c}=1 & \end{matrix}\right.[/tex]
([TEX]a,b,c[/TEX] là các số nguyên dương)
Vd: Số nhỏ nhất thỏa mãn là 49 vì:
[TEX]49=2^2+3^2+6^2[/TEX] và [TEX]\frac{1}{2}+\frac{1}{3}+\frac{1}{6}=1[/TEX].

Viết chương trình in ra tất cả các số thỏa mãn nhỏ hơn n (cho trước)?

 

[nguyễn lê phước thịnh]

uses crt;
var n,i,j,k,a:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
begin
for i:=1 to a+1 do
begin
for j:=i+1 to a-1 do
begin
for k:=j+1 to a do
begin
if (sqr(i)+sqr(j)+sqr(k)=a) and (1/i+1/j+1/k=1) then write(a:4);
end;
end;
end;
end;
readln;
end.