Чисто расчетная задача.
Тебе надо 2 цикла: по a и по b.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 | procedure P(n : Integer );
var
a, b : Integer ;
c : Integer ;
begin
for a := 1 to n- 1 do
for b := a+ 1 to n do
begin
c := sqr(a) + sqr(b);
If (sqrt(c) < n) and (sqrt(c) = int(sqrt(c))
then ...
end ;
end ;
|
Это алгоритм "навскидку". Наверняка можно как-то оптимизировать еще.
Смысл - в циклах перебираем все а от 1 до n-1 и b от а+1 до n (т.е. соблюдается условие a < b). Высисляем c и проверяем, что оно больше b, но меньше n и целое. Если условие выполнено, то что-то делаем с полученными числами (например, куда-нить выводим).