Question

Pascal вывести для каждого заданного числа количество цифр. формат ввода: элементы последовательности (целые числа в диапазоне от -30000 до 30000) заданы по одному на строке через пробел. признак окончание последовательности - число 0 (в последовательность не входит). формат вывода: целое число. пример входных данных 1 -23 -31 486 0 пример выходных данных 1223

Answer 1

Var
   i,n,k:longint;
   a:array [1..30000] of longint;
begin
    n:=0;
    for i:=1 to 30000 do
        begin
            read(a[i]);
            if a[i]<>0
                then n:=n+1
                else break;
        end;   
    for i:=1 to n do
        begin
           k:=0;
           while a[i]<>0 do
                begin
                    a[i]:=a[i] div 10;
                    k:=k+1;
                end;
           writeln(k,' ');
        end;
end.