Найти тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется равенство - Free Pascal
Формулировка задачи:
Найти все такие тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется равенство x*x+y*y*z*z=0
Решение задачи: «Найти тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется равенство»
textual
Листинг программы
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 с пробелами между ними