Дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ ) СРОЧНО !

Question

Дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ )
СРОЧНО !

Answer 1

Vara:string;beginwriteln('Введите число: ');readln(a);writeln('Количество цифр в вашем числе - ',length(a));end.

Comments

var
a:string;
begin
writeln('Введите число: ');
readln(a);
writeln('Количество цифр в вашем числе - ',length(a));
end.

Answer 2

Var
ans, n:integer;
Begin
Read(n);
While (n > 0) do
  begin
    inc(ans);
    n := n div 10;
  end;
Writeln(ans);
end.