3. Напишите функцию kdn, которая вычисляет количество цифр вводимого целого числа.
Ответ
Вот пример функции kdn, которая вычисляет количество цифр вводимого целого числа в Паскаль:
function kdn(number: integer): integer;
var
count: integer;
begin
count := 0;
if number = 0 then
count := 1
else
begin
while number <> 0 do
begin
count := count + 1;
number := number div 10;
end;
end;
kdn := count;
end;В этой функции используется цикл «while», чтобы последовательно делить число на 10 и увеличивать счетчик, пока оно не станет равным 0. Таким образом, каждое деление на 10 удаляет одну цифру числа, пока все цифры не будут удалены.
Применение функции kdn осуществляется присвоением возвращаемого значения функции переменной, например:
var
num, digits: integer;
begin
write('Введите целое число: ');
readln(num);
digits := kdn(num);
writeln('Количество цифр в числе: ', digits);
end.В этом примере программа сначала запрашивает у пользователя ввод целого числа, затем вызывает функцию kdn для вычисления количества цифр в числе и выводит результат на экран.