Jednostavno pitanje u tp????

[ Pregleda: 4250 | Odgovora: 3 ] > FB > Twit

Autor

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

^{26.06.2005. u 19:06 - pre 241 meseci}

Kako napisat (sto jednostavnije) kod koji ce za unijet broj reci od koliko se taj broj (integer) sastoji znamenaka?
Znaci:

broj:309
znamenke:3

Danica Porobic
Novi Sad

Član broj: 13847
Poruke: 28
212.200.5.*

Profil

^{26.06.2005. u 19:22 - pre 241 meseci}

var
n,cif:integer;
begin
readln(n);
cif:=0;
while n>0 do
begin
n:=n div 10;
cif:=cif+1
end;
writeln(cif)
end.

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

^{26.06.2005. u 19:30 - pre 241 meseci}

He he jos se mucis sa onim programom...

Code:

var s: string;
  broj, znakova: integer;
begin
   str(broj, S);
   znakova := length(s);
end.

stameni
Ivan Stamenković

Član broj: 6739
Poruke: 550

+9 Profil

^{27.06.2005. u 12:38 - pre 241 meseci}

Dužina *prirodnog* broja n može se naći iz formule:

len(n) = trunc(log10(n)) + 1

log10 može se izračunati preko prirodnog logaritma.

[ Pregleda: 4250 | Odgovora: 3 ] > FB > Twit

Srodne teme

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.