bin(51) = 0b110011
То есть 110011, дополняет незначащими нулями и получаем
00110011
--------------------------------------Вроде так--------------------------------------
Var n,i:integer;
Begin
Readln(n);
For i:=1 to n do
If not(i mod 2 = 0) then writeln(i);
<span>End.</span>
22510= 150²+10 Если складывать, добавлять сила нельзя, то воспользуйся другими сайтами,калькулятором