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

Регистрация
8 Май 2013
Сообщения
83
Репутация
0
Спасибо
0
Монет
0
Написать программу для подсчета количество пар любых двух целых чисел диапазоне от 1 до M для которых справедливо утверждение: Сумма квадратов любых двух целых чисел равно кубу одного из этих чисел. Если такие пары чисел существуют, вывести построчно значения этих чисел и общее количество четных чисел среди всех найденных чисел. В этой задаче M= N*200, где N – 16
 
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. Пары выводит, а четные не считает. Это сам додумай.
 
Назад
Сверху