Написать программу, реализующую ввод числа и определение его длины.

Question

Написать программу, реализующую ввод числа и определение его длины.

Comments

язык?)

---

скорее всего целое число, на разряды, но не уточнила ничего)

Answer 1

Var a,n:integer;
begin
readln(a);
n:=0;
While a>0 do
Begin
a:=a div 10;
n:=n+1;
end;
writeln(n);
end.