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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.