пока текущее число больше нуля, увеличиваем счётчик количества цифр и отбрасываем последнюю цифру.
код (pascal)var
x, i, ans: integer;
procedure digitcount(k: integer; var c: integer);
begin
c : = 0;
while (k > 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).
Поделитесь своими знаниями, ответьте на вопрос: