Обрисовать процедуру DigitCount(K,C), находящую C количество цифр целого положительного числа
Обрисовать процедуру DigitCount(K,C), обретающую C количество цифр целого положительного числа K (K входной, C выходной характеристики целого типа). С поддержкою этой процедуры найти и напечатать количество цифр для каждого из пяти данных чисел.
Формат входных данных
На вход программке подается 5 естественных чисел, каждое из которых записано в отдельной строке. Числа не превосходят 2109 и не содержат водящих нулей.
Формат выходных данных
Нужно вывести 5 чисел для каждого числа количество его цифр.
Образцы
входные данные выходные данные
12
234
456
4
12333
2
3
3
1
5
Алгоритм решения
Пока текущее число больше нуля, увеличиваем счётчик количества цифр и отбрасываем заключительную цифру.
Код (Pascal)
var
x, i, ans: integer;
procedure DigitCount(k: integer; var c: integer);
begin
c := 0;
while (k gt; 0) do
begin
c := c + 1;
k := k div 10;
end
end;
begin
for i := 1 to 5 do
begin
read(x);
DigitCount(x, ans);
writeln(ans);
end;
end.
----------------------------
Файл решения прикреплён (1).
P.S. Условие задачи дозволяет свести её решение к нахождению длины каждой из пяти введённых строк. Такой вариант решения тоже прикреплён (2).
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.