Fórum Calculo em bytes #410208

var
a, b : integer;
begin
a := $21 + $30 + $32 + $2C + $53 + $2C +
$30 + $31 + $32 + $2C + $32 + $30 +
$30 + $31 + $32 + $30 + $31 + $30 +
$31 + $32 + $30 + $30 + $30 + $30 + $2C;

b := a mod $100;

ShowMessage(IntToStr(b));
ShowMessage(IntToStr($C4));

end;

é isso que queria?

mais desculpe falar a sua conta esta errada.. (0x21 + 0x30 + 0x32 + 0x2C + 0x53 + 0x2C + 0x30 + 0x31 + 0x32 + 0x2C + 0x32 + 0x30 + 0x30 +
0x31 + 0x32 + 0x30 + 0x31 + 0x30 + 0x31 + 0x32 + 0x30 + 0x30 + 0x30 + 0x30 + 0x2C)


Não da esse valor.. 0x4C4

Caso for isso, conclui o o topico, caso nao for isso que deseja, me explica oq bem certo quer fazer, que eu te ajudo, espero ter ajudado

att..

Ok, era isso mesmo.
Sobre a somatoria errada é pq o nono elemento não é 0x32 e sim 0x34.
Obrigado.