Cita:
Empezado por BDWONG
Código Delphi [-]function DigitAtPos(N: DWord;K:Byte): Dword;
begin
Result:=0;
if (N>=K) and (K>0) then
Result:=ord(IntToStr(N)[k])-$30;
end;
begin
WriteLn(DigitAtPos(1248935,4));
ReadLn;
end.
|
Ese codigo lo veo y no entiendo nada
es como si estuviese cifrado.. es peor que leer C
Fuera de bromas, realmente no lo entiendo, en donde esta el "truco"?