Предмет: Информатика,
автор: Alehandro00735
помогите пожалуйста с задачей) turbo pascal
составить программу к задаче :'числа a,b и c называются "пифагоровой тройкой",если выполняется условие a*a+b*b=c*c отыщите все пифагоровы тройки среди чисел от 1 до n
Ответы
Автор ответа:
2
Вот решение за O(n^3)
var
n,i,j,z:longint;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
for z:=1 to n do
if (i*i+j*j=z*z) then writeln(i,' ',j,' ',z);
end.
var
n,i,j,z:longint;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
for z:=1 to n do
if (i*i+j*j=z*z) then writeln(i,' ',j,' ',z);
end.
Интересные вопросы
Предмет: Английский язык,
автор: Twinsister11
Предмет: Английский язык,
автор: ЛЯ666
Предмет: Русский язык,
автор: cake2003
Предмет: Английский язык,
автор: pysya40
Предмет: Математика,
автор: karinakotova3462