дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ )
СРОЧНО ! уже какой раз кидаю этот вопрос никто правильно решить не может !
ХЕЕЕЛП !

Можно легче: varx,t:longint;beginwrite('введите число: ');readln(x);while x>=10 do begint:=t+1;x:=x div 10 end;write('количество цифр чисда: ',t+1);readln;end.