1.5 минуты ето 90с
потом нужно 90*256 000=23040000 бит
23040000:8192=2812,5
123-четырехричная(4) 10=302
222-трехричная(3) 10=211
111-двухричная(2) 10=1111
241-пятеричная(5) 10=400
2. 128 = 10000000
256 = 100000000
512 = 1000000000
<span> 1024 = 1000000000
</span>
3. 1000001 = 65
10000001 = 129
<span> 100000001 = 257
</span> 1000000001 = 513
<span>4.
101 = 5 </span>
11101 = 29
101010 = 42
100011 = 35
<span> 10110111011 = 1467
</span>
5.
2= 10
7= 111
17= 10001
68= 1000100
315= 100111011
765= 1011111101
2047= 11111111111
<span>6.
11+1=100
111+1=1000
1111+1=10000
11111+1=100000
</span>
<span>7. </span>
111*10=1110
111*11=10101
1101*101=1000001
<span> 1101*1000=1101000</span>
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>