Pascal Количество цифр в числе

[#Azamat]

Простая программа определяет количество цифр в числе. Используется алгоритмическая структура цикл с предусловием.

Program KolCifr;
Var
I, S, N : Longint;
Begin
Writeln('Введите целое'); Readln(I);
N:=1;
While I > 10 DO
BEGIN
I:=I DIV 10;
Inc(N);
end;
Write('Количество цифр = ',N);
Readln;
end.

Автор: Неизвестен