Question

Найдите все значения натуральных чисел X , Y , Z из интервала от 1 до 10, удовлетворяющих равенству: X2 + У2 = Z2.

Answer 1

program PythagoreanTriples;
var   X, Y, Z: integer;
begin   writeln('Натуральные числа X, Y, Z, удовлетворяющие X^2 + Y^2 = Z^2:');
     for X := 1 to 10 do     for Y := 1 to 10 do       for Z := 1 to 10 do         if X * X + Y * Y = Z * Z then           writeln('X = ', X, ', Y = ', Y, ', Z = ', Z);
     readln; end.