-
program
coppie;
-
var
cont,ix,iy:integer;
-
var q:real;
-
begin
-
ix:=1;
-
iy:=1;
-
cont:=0;
-
for ix:=1 to 100 do
-
begin
-
for iy:=1 to 100 do
-
begin
-
q:=ix*ix+iy*iy;
-
if sqrt(q)-int(sqrt(q))=0 then
-
begin
-
write('(',ix,',',iy,')');
-
cont:=cont+1;
-
end;
-
end;
-
end;
-
writeln(cont);
-
end.
|
|
|