Найти тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется равенство - Free Pascal

Найти все такие тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется равенство x*x+y*y*z*z=0

Листинг программы

For x:=1 to 20 do
 For y:=1 to 20 do
  For z:=1 to 20 do
    If x*x+y*y*z*z=0 then Writeln(x,' ',y,' ',z);

Объяснение кода листинга программы

Начинается цикл от 1 до 20 для переменной x
Внутри цикла начинаются два вложенных цикла от 1 до 20 для переменных y и z
Внутренний цикл проверяет условие xx+yyzz=0
Если условие выполняется, то выводится значение переменных x, y, z с пробелами между ними

Оцени полезность:

8 голосов , оценка 3.625 из 5

Похожие ответы