var a,b,c:integer;beginfor a:= 1 to 20 dofor b:= 1 to 20 dofor c:= 1 to 20 dobeginif a*a+b*b=c*c thenwriteln(a:4,b:4,c:4);end;end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b,c:integer;
begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
end.