Вопрос Помогите написать программу на Турбо Паскале или С++

[evzheka2]

Написать программу для подсчета количество пар любых двух целых чисел диапазоне от 1 до M для которых справедливо утверждение: Сумма квадратов любых двух целых чисел равно кубу одного из этих чисел. Если такие пары чисел существуют, вывести построчно значения этих чисел и общее количество четных чисел среди всех найденных чисел. В этой задаче M= N*200, где N – 16

 

[Djon]

var i,j,m,n:integer; begin n:=16; m:=n*200; for i:=1 to m-1 do for j:=i+1 to m do if (i*i +j*j=i*i*i) or (i*i +j*j=j*j*j) then writeln(i,,j) end. Пары выводит, а четные не считает. Это сам додумай.

 

[dimazavr]

Вроде все просто и понятно!? С чем у тебя трудности возникли?