А) 01001100=1*2 в 6 степени+0*2 в 5 степени+0*2 в 4 степени+1*2 в 3 степени+1*2 во 2 степени+0*2 в 1 степени+0*2 в <span>0 степени=64+8+4=76 (так как первая цифра в двоичном числе 0, то перед числом +)
б) 00010101=0*2 в 6 степени+0*2 в 5 степени+1*2 в 4 степени+0*2 в 3 степени+1*2 во 2 степени+0*2 в 1 степени+1*2 в 0 степени=16+4+1=21 </span>(так как первая цифра в двоичном числе 0, то перед числом +)
ну как тебе обьяснить. данная запись создаёт определённый текст. в данном случае получится что-то такое:
980
S-10*3
num = input()
print(int(num) + int(num[::-1]))
Var
A,Sc,Sn:integer;
Begin
Sc:=0;
Sn:=0;
Write('Введите четырёхзначное число: ');ReadLn(A);
//Если чётных(0,2,4,6,8) и нечётных(1,3,5,7,9) чисел:
if (A div 1000) mod 2 = 0 then Sc:=Sc+A div 1000
else Sn:=Sn+A div 1000;
if ((A div 100) mod 10) mod 2 = 0 then Sc:=Sc+(A div 100) mod 10
else Sn:=Sn+(A div 100) mod 10;
if ((A div 10) mod 10) mod 2 = 0 then Sc:=Sc+(A div 10) mod 10
else Sn:=Sn+(A div 10) mod 10;
if (A mod 10) mod 2 = 0 then Sc:=Sc+(A mod 10)
else Sn:=Sn+(A mod 10);
if Sc<Sn then WriteLn(Sn,' ',Sc)
else WriteLn(Sc,' ',Sn);
//Если чисел, стоящих на чётных и нечётных позициях:
Sc:=(A mod 10)+(A div 100) mod 10;
Sn:=(A div 10) mod 10 + A div 1000;
if Sc<Sn then WriteLn(Sn,' ',Sc)
else WriteLn(Sc,' ',Sn);
End.