Как посчитать количество цифр в числе - Turbo Pascal
Формулировка задачи:
Решение задачи: «Как посчитать количество цифр в числе»
function nOfDig(n: integer):integer;
var res:integer;
begin
res:= 0;
repeat
n := n div 10;
res:= res + 1;
until n = 0;
nOfDig:= res;
end;
begin
(* your code goes here *)
writeln(nOfDig(45)); {=> 2}
writeln(nOfDig(123456)); {=> 6}
end.
Объяснение кода листинга программы
В данном коде реализована функция nOfDig, которая принимает целое число в качестве входного параметра и возвращает количество цифр в этом числе.
В начале функции объявлена переменная res типа integer, которая инициализируется значением 0 и будет использоваться для подсчета количества цифр.
Затем в блоке repeat происходит деление числа n на 10 и присваивание остатка от деления переменной res. Таким образом, с каждой итерацией цикла число n уменьшается на 10, а значение переменной res увеличивается на 1.
Цикл продолжается до тех пор, пока число n не станет равным 0. После этого значение переменной res сохраняется в функцию nOfDig.
В основной части кода функция nOfDig вызывается дважды. Первый раз с аргументом 45, что приводит к выводу числа 2, так как число 45 содержит две цифры. Второй раз с аргументом 123456, что приводит к выводу числа 6, так как число 123456 содержит шесть цифр.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д