Дано натуральное число n. Найти тройки x, y, z таких натуральных чисел, что n=x2+y2+z2...

Question

Дано натуральное число n.
Найти тройки x,
y,
z
таких натуральных чисел, что
n=x2+y2+z2
Получить результат при n=166

Answer 1

Var x,y,z,n:integer;
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
end.