Question

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

Answer 1

Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
 for b:=a to n-1 do
  begin
  d:=a*a+b*b;
  c:=1;
  while c*c<d do c:=c+1;
  if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
  end;
end.

Пример:
20
3 4 5
5 12 13
6 8 10
8 15 17
9 12 15