Переводим в двоичную систему счисления
592 / 2 = 296 | 0 в остатке
296 / 2 = 148 | 0
148 / 2 = 74 | 0
74 / 2 = 37 | 0
37 / 2 = 18 | 1
18 / 2 = 9 | 0
9 / 2 = 4 | 1
4 / 2 = 2 | 0
2 / 2 = 1 | 0
1
затем, пишем нули и единицы снизу-вверх
1001010000
и приписываем недостающие нули
0000 0010 0101 0000 (32 бита)
так же это число не является отрицательным,
поэтому вычислять дополнительный
(или обратный код) не нужно
Ответ: 0000001001010000
Const m=24;
var k6,k5,n:integer;
begin
for k6:=0 to m div 6 do
for k5:=0 to (m-k6*6) div 5 do
if (m-k6*6-k5*5) mod 2 =0 then<span> n:=n+1;
</span>writeln(n);
end.
Результат:
9
На Python примерно так выглядит: https://pastebin.com/BVbddj4U
Если нужно не на Python'е, напишите.
Var r,h,s,v: real;
begin write('Введите радиус: ');
readln(r);
write('Введите высоту: ');
readln(h);
s:=4*pi*r*(h+r);
v:=pi*r*r*h;
writeln('Полная площадь цилиндра равна ',s);
writeln('Объем цилиндра равен ',v);
<span>end.</span>