ты скажи в каких системах счисления у тебя даны они изначально. А то не понятно, как переводить.
1) <span>11100110101 в двоичной = <span>735 в шестнадцатиричной; <span>3465 в восьмиричной
1) <span>10001111010 в двоичной = </span><span>47A в шестнадцатиричной; <span>2172 в восьмиричной</span></span></span></span></span>
512=2^i
i=9 бит
v=k*i=400*9=3600 бит/8=450 байт/1024=0,43 Кб
Uses
System.Collections.Generic,
System;
var
simple: List<integer> := new List<integer>;
i, n, p: integer;
m: longint;
begin
read(n);
for i := 2 to n do
begin
m := 1;
foreach s: integer in simple do
m := m * i mod s;
if m > 0 then begin
simple.Add(i);
// write(i, ' ');
end;
end;
writeln();
foreach s: integer in simple do
begin
if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
m := round(Math.Pow(2, s) - 1);
if (m <= n) and simple.Contains(m) then
write(m, ' ');
end;
end;
end.