Существуют тройки Пифагора, то есть a^2+b^2=c^2 . Есть лишь одна такая тройка, что a+b+c=1000 . Написать программу, которая

var a,b:integer; begin for a:=1 to 1000 do for b:=1 to 1000 do if(sqrt(sqr(a)+sqr(b))=trunc(sqrt(sqr(a)+sqr(b)))) then//подбор жадным алгоритмом двух чисел, корень из //суммы квадратов которых будет целым числом if(a+b+sqrt(sqr(a)+sqr(b))=1000) then //проверка второго условия задачи (равна сумма трех чисел тысяче или нет?)writeln(a, \' \', b, \' \',sqrt(sqr(a)+sqr(b))); //вывод ответа на экран exit; //прекращение работыend; end.