ako je npr X := 37
kako da A dobije vrednost 3 a B vrednost 7
kako da A dobije vrednost 3 a B vrednost 7
Kako dobiti prvi i poslednji broj nekog integera
Zaključano
Zakačeno
B := X mod 10;
A := X div 10;
A := X div 10;
Potpis
xxx
mali mali mali kamičak...nebo plave boje.
In Memoriam: Madzone Zeka(15.09.2005-16.09.2005)
mali mali mali kamičak...nebo plave boje.
In Memoriam: Madzone Zeka(15.09.2005-16.09.2005)
Hvala puno na brzom odgovoru!
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;
B := N mod 10;
while (N div 10 > 0) do begin
N := N div 10;
end;
A := N;
Mene nesto ta petlja gore nervira. Moze i ovako:
Istina, ovo ne radi ako je N nula (division by zero), al opet, krace je od petlje...
Pozz
Code:
A := N div trunc(Power(10, Int(log10(N))));
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