Приведены все профессии человека. Если я правильно поняла задание
1)1100011 2
2)22 10
3)10110111 2
4)127 10
5)1000000000 2
Var i,n:integer;
begin
read(n);
for i := 1 to n do
writeln(i*i*i);
end.
Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.
Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>