Количество цифр в числе.

[Renge]

С экрана вводится натуральное число. Не подскажите, как при помощи паскаля вычислить, сколько в нем цифр (для последующих с ними махинаций)?

[fbus]

var i:byte;
.....
readln(a);
i:=length(a);
...

[Serge_Bliznykov]

куча вариантов.

выбирайте, какой нравится/понятне/удобней:

var
  s : string;
  N: Longint;
begin
  ReadLn(N);

  Str(N, s);
  WriteLn('Количество цифр = ',Length(s));
  Readln;
end.

var
  N,Len : Longint;
begin
  ReadLn(N);

  Len := 0;
  while N>0 do begin
    Inc(Len);
    N := N div 10;
  end;
  WriteLn('Количество цифр = ',Len);
  Readln;
end.

var 
  N,Len : Longint;
begin
  ReadLn(N);

  if N>0 then
    Len := trunc(ln(N)/ln(10))+1
 else
    Len := 1;
  WriteLn('Количество цифр = ',Len);
  Readln;
end.

[Renge]

Я, воощем-то, еще length, len и другие непонятные значки не знаю, первый год паскаль прохожу. А если совсем элементарно никак нельзя?*

[dixonich]

Сообщение от Renge

Я, воощем-то, еще length, len и другие непонятные значки не знаю, первый год паскаль прохожу. А если совсем элементарно никак нельзя?*

это самый элементарный вариант.
ещё вариант :

cin>>n; // вводим число
while(floor(n)!=0) { // пока целая часть не равна нулю
    n/=10; // делим его на десять
    z++; // z - счётчик. поделил один раз и остаток стал ноль - z увеличился один раз, значит у нас одна цифра в числе.
}
cout<<z; // выводим z;

это СИ, но идея, думаю, понятна.

[Косюра]

а строки то вы проходили, али как?
можно просто сделать это в двух вариантах. Первый - вводится строка, второй - число integer.

С integer длиннее и больше заморочек. со строкой вы видели) по поводу integer - вполне объясняется в предыдущем комментарии:

Код:


cin>>n; // вводим число
while(floor(n)!=0) {
n/=10; // делим его на десять
z++; // z - счётчик. поделил один раз и остаток стал ноль - z увеличился один раз, значит у нас одна цифра в числе.
}
cout<<z; // выводим z;

но если не понятно как переписать это на паскаль - пишите, поможем.