Question

Nhập số nguyên n, tìm tất cả các cặp số A, B sao cho A² + B² là một số chính phương.

\(1\le A\le B\le n\)

Answer 1

https://i.imgur.com/WKsxtEW.png

Answer 2

uses crt;
var n,a,b,q:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
for b:=a to n do
if trunc(sqrt(sqr(a)+sqr(b)))=sqrt(sqr(a)+sqr(b)) then writeln(a,' ',b);
readln;
end.

Answer 3

Answer 4

Program hotrotinhoc;

var a,b,n: longint;

function cp(x: longint): boolean;

begin

cp:=false;

if x=sqr(trunc(sqrt(x))) then cp:=true;

end;

begin

readln(n);

for a:=1 to n do

for b:=a to n do

if cp(a*a+b*b) then writeln(a,' ',b);

readln

end.