Adoratus
6 год назад
1задание............................
ОТВЕТЫ
Nikifor
Oct 24, 2020
Тройки получаются с повторениями (например, 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
Можно повторения убрать.
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
237
Смежные вопросы:
