[ Sky Walker @ 02.06.2011. 16:41 ] @
ako je npr X := 37

kako da A dobije vrednost 3 a B vrednost 7

[ pajaja @ 02.06.2011. 16:51 ] @
B := X mod 10;
A := X div 10;
[ Sky Walker @ 02.06.2011. 16:55 ] @
Hvala puno na brzom odgovoru!
[ Nikolavlasotince @ 05.06.2011. 14:38 ] @
To ce raditi samo u slucaju kada je broj N dvocifren, a koliko sam razumeo iz naslova teme broj N moze imati i vise cifara? U tom slucaju bi resenje izgledalo ovako:
Code:

B := N mod 10;
while (N div 10 > 0) do begin
  N := N div 10;
end;
A := N;
[ Rapaic Rajko @ 07.06.2011. 10:10 ] @
Mene nesto ta petlja gore nervira. Moze i ovako:

Code:

  A := N div trunc(Power(10, Int(log10(N))));


Istina, ovo ne radi ako je N nula (division by zero), al opet, krace je od petlje...

Pozz