Тройки получаются с повторениями (например, 3,4,5 и 4,3,5). Можно повторения убрать. var x,y,z:integer; begin for x:=1 to 10 do for y:=1 to 10 do begin z:=round(sqrt(x*x+y*y)); if x*x+y*y=z*z then writeln(x,' ',y,' ',z); end; end.
Результат: 3 4 5 4 3 5 6 8 10 8 6 10
2 votes Thanks 2
SunRise03
Это задание же в паскале надо делать?) просто в условии задачи не написано)
Answers & Comments
Verified answer
Тройки получаются с повторениями (например, 3,4,5 и 4,3,5).Можно повторения убрать.
var x,y,z:integer;
begin
for x:=1 to 10 do
for y:=1 to 10 do
begin
z:=round(sqrt(x*x+y*y));
if x*x+y*y=z*z then writeln(x,' ',y,' ',z);
end;
end.
Результат:
3 4 5
4 3 5
6 8 10
8 6 10