Работа 3.4 Упр.1 Задание 3 ГДЗ Семакин 10 класс (Информатика)

Задача

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

Подробный ответ

Переберём все натуральные числа $$a$$ и $$b$$, причём достаточно брать $$a \le b$$, чтобы не получать одинаковые пары дважды. Для каждой пары вычислим

$$d=a^2+b^2$$

и найдём такое натуральное $$c$$, что

$$c^2=d$$

Если такое $$c$$ существует и $$c<N$$, то тройка $$a, b, c$$ является числом Пифагора и её нужно вывести.

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.