Дано натуральное число...

[Amir93]

Дано натуральное число n, определить количество цифр! Помогите плиз=) написать в паскале!

[Leshii]

Дано натуральное число n, определить количество цифр.

Program stroki;
Uses crt;
var s: string;
    k: integer;
begin
clrscr;
write('Vvedite 4islo: ');
readln(s);
k:=length(s);
writeln(k);
readln;
end.

[Mad_Cat]

Дано натуральное число n, определить количество цифр.

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

[Serge_Bliznykov]

ну и я добавлю свои "пять копеек"
(файл привожу целиком, хотя в нём и присутствует некоторый повтор способов предложенных выше)

var
  s : string;
  N,N0, Len : Longint;
  i : integer;
begin
  ReadLn(N);
  if N<0 then begin
     WriteLn('отрицательные числа для простоты игнорируем...');
     Halt;
  end;

  {способ 1}
  Str(N, s);
  WriteLn('Количество цифр = ',Length(s));
  Readln;

  {способ 2}
  Len := 0;
  N0 := N;
  repeat
    Inc(Len);
    N0 := N0 div 10;
  until N0=0;
  WriteLn('Количество цифр = ',Len);
  Readln;

  {способ 3}
  if N=0 then WriteLn('Одна цифра')
  else begin
    Len := trunc(ln(N)/ln(10))+1;
    WriteLn('Количество цифр = ',Len);
  end;
  Readln;
end.

[Amir93]

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

Дано натуральное число n, определить количество цифр.

Program stroki;
Uses crt;
var s: string;
    k: integer;
begin
clrscr;
write('Vvedite 4islo: ');
readln(s);
k:=length(s);
writeln(k);
readln;
end.

Спасибо