Длина числа
- Var
- n, n2, m : integer;
- s : string;
- begin
- read(n);
- //Переводим в строку и выводим ее длину
- s := IntToStr(n);
- writeln(length(s));
- //Постепенно уменьшаем число
- n2 := n;
- while n2<>0 do
- begin
- n2 := n2 div 10;
- m := m + 1;
- end;
- writeln(m);
- //LOG10
- m := trunc(log10(n))+1;
- writeln(m);
- end.
Каким образом можно узнать длину числа? Первый - перевести в строку и извлечь длину строки. Второй - постепенно уменьшать число в 10 раз, пока она не будет равно нулю. Третий - использую логарифм. Последний способ является самым быстрым.
P.S. По идее должно работать
P.S. По идее должно работать
