Tema
Registracija

Kako dobiti prvi i poslednji broj nekog integera

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 4 odgovora
  • 2.007 pregleda
Re: Kako dobiti prvi i poslednji broj nekog integera 05.06.2011. u 14:38 · pre 187 meseci #4
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;
Re: Kako dobiti prvi i poslednji broj nekog integera 07.06.2011. u 10:10 · pre 187 meseci #5
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
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme