Написать программу в pascal. Составить программу определения количества цифр в заданном целом числе.

Question

Сергей · Accepted Answer

n - твоё число 
 
Вариант 1: 
length(str(n)); 
 
Вариант 2: 
i := 0; 
repeat 
inc(i); 
n:=n div 10; 
until (n = 0); 
 
P.S. Вариант выше не совсем верный, так как если число будет == 0, то ответ будет равен 0, а это неверно ведь 0 однозначное число (Кол-во цифр 1) :)

Новикова Татьяна · Answer

while (n<>0) do 
begin 
inc(i); 
n:=n div 10; 
end;