Задача 1 Определить кол-во цифр в числе

Var a, c: integer; begin read (a); c: =0; while a > 0 do begin c: =c+1; a: =a div 10; end; write (c); end.var i, n: integer; begin read (n); for i: =1 to trunc (sqrt (n) do write (i, '); end.var n, i: integer; begin i: =1; while i*i*i <= n do i: =i+1; writeln (i); end.