Найдите количество троек натуральных чисел X, Y, Z на интервале [10; 5000], которые удовлетворяют условиям: Х

program zz1; / / в связи с тем, что в решении для перебора используется вложенные циклы, программа будет работать долго

var x, y, z:integer; / / задаем переменные

begin

for x:=10 to 5000 do / / организуем три вложенных в друг друга цикла для перебора всех чисел от 10 до 5000

for y:=10 to 5000 do

for z:=10 to 5000 do

if (x < y) and (z mod 10 = 5) and (x*x+y*y=z) / / проверяем заданные условия

then writeln ('x=', x,' y=', y,' z=', z); / / выводим ответ

end.