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

Question

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

Comments

А можно чуть больше информации?)

Answer 1

program 123;
  uses crt;
  var m, n: longint;
      k: integer;    {счетчик цифр}
begin
  clrscr;
{Вводим целое число.}
  writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
  m:=n;k:=0;
{Пока m<>0 делать цикл.}
  while m <>0 do
    begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
      k:=k+1; m:= m div 10; {Inc(k) }
    end;
{Вывод количества цифр.}
  writeln('B числе ',n,'- ',k, ' цифр!');
  readln;
end.

Comments

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