Program Main;
var a,b,c,N:integer;
begin
writeln('Введите N');
read (N);
for a:=1 to N-1 do
for b:=a+1 to N-1 do
for c:=1 to N-1 do
if a*a+b*b=c*c then
writeln (a:5,b:5,c:5)
end.
Выполните

KaratisT222    3   16.04.2020 12:28    3