Question

НЕОБХОДИМО СДЕЛАТЬ БЛОК-СХЕМУ!

Дано натуральное число n. Сколько цифр в числе?

Answer 1

begin
readln(n);
______________________________
a:=n;
while a<>0 do
begin
a:= a div 10;
k:=k+1;
______________________________
end;