Описать процедуру digitcount(k,c), находящую c — количество цифр целого положительного числа k (k — входной, c — выходной параметры

Question

Информатика: Описать процедуру digitcount(k,c), находящую c — количество цифр целого положительного числа k (k — входной, c — выходной параметры целого типа). с этой процедуры найти и напечатать количество цифр для каждого из пяти данных чисел. формат входных данных на вход программе подается 5 натуральных чисел, каждое из которых записано в отдельной строке. числа не превосходят 2×109 и не содержат ведущих нулей. формат выходных данных требуется вывести 5 чисел — для каждого числа количество его цифр. примеры

gmejenny · Answer

Алгоритм решенияПока текущее число больше нуля, увеличиваем счётчик количества цифр и отбрасываем последнюю цифру.Код (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;  endend;begin  for i := 1 to 5 do  begin    read(x);    DigitCount(x, ans);    writeln(ans);  end;end.Файл решения прикреплён (1).P.S. Условие задачи позволяет свести её решение к нахождению длины каждой из пяти введённых строк. Такой...

Популярные вопросы