Дано натуральное число N. Сколько цифр в том числе? Задачу решить с использованием операторов организации циклов.
Во входном потоке дано число N (N <= 10 ^ 9). В выходной поток вывести количество цифр помогите пожалуйста
Дано натуральне число N. Скільки цифр в тому числі? Завдання вирішити з використанням операторів організації циклів.
У вхідному потоці дано число N (N <= 10 ^ 9). У вихідний потік вивести кількість чисел

Program z24;  Var  i:integer; n:longint;Begin  write('Введите число - '); readln(n);  i:= 0;  while (n > 0) do  begin    n:= n div 10;    i:= i + 1;  end;  writeln('Кол-во цифр в числе - ', i);End.