Дано натуральное число. Определите количество цифр в нём. (в Паскаль)

Более честный способ:

uses crt;

var s, ans:integer;

begin

read (s);

while s>0 do

begin

inc (ans);

s:=s div 10;

end;

writeln (ans);

end.

Более короткий:

uses crt;

var s:string;

begin

read (s);

writeln (length (s));

end.