нужна программа Maple

Question

Напишите код Maple, чтобы найти все не более трех цифр пифагорейских троек (a, b, c) для a, b, c > 0. Мы говорим, что целая тройка (a, b, c) является пифагорейской тройкой, если a^2+b^2=c^2. Подсказка: вам может понадобиться использовать команду type(sqrt(x),integer), поскольку она возвращает true, если x - это полный квадрат. Получить справку по типу в справочном центре.

Answer 1

одна возможность. При необходимости вы можете попытаться сделать его более эффективным.

result:=Array(1..999);
n:=0;
for a from 1 to 999 do
  for b from a to 999 do    
    c:=sqrt(a^2+b^2);
    if type(c,integer) and length(c)<=3 then       
       n:=n+1;
       result(n):=[a,b,c];
    fi;
  od;
od;
result:=result(1..n);

Чтобы напечатать их

for item in result do    
    print(item[1]^`2`+item[2]^`2`=item[3]^`2`)
od

....

Answer 2

Учтите это:

isolve(a^2+b^2=c^2);