Напечатать все числа Пифагора меньше N

[Санячос]

Натуральные числа a,b,c называються числами Пифагора если выполняется условие а2+b2=c2. Напечатать все числа Пифагора меньше N.

[Sibedir]

Вложенные циклы for. 3 шт. Перебираешь все варианты от 1 до N для каждого из чисел a, b, c и проверяешь условие.

[Санячос]

Ты мне програму напиши если не затруднит тебя, я просто в некоторых случаях самневаюся, а эта задача мне нужна очень я уже 11 сделал осталося она последняя(Выручи)!

[alexBlack]

for c:=1 to N do begin
   // катет всегда короче гипотенузы 
   for b:=1 to c do begin
       for a := 1 to c do begin

           if a*a + b *b = c*c then begin
               // Ok - печатать 
           end;

       end;
    end;
end;

[Sibedir]

// катет всегда короче гипотенузы

Это разумно

[Санячос]

Спасибо большое очень выручил