9класс
Страница 29-30 параграф 1.2 вопрос 3, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение
Номер 3. Напишите функцию kdn, которая вычисляет количество цифр вводимого целого числа.
program Z_1_2_3;
var
n: integer;
function kdn(a: integer): integer;
var
k: integer;
begin
k := 0;
while a <> 0 do
begin
inc(k);
a := a div 10
end;
kdn := k
end;
begin
write('ВВеди число n>>');
readln(n);
writeln('Количество цифр в числе = ', kdn(n))
end.
