Question

Функция. Подсчитать количество цифр в заданном натуральном числе.
Решить в Паскале

Answer 1

program kol_cifr;

var

x:int64;

k:integer;

begin

writeln('Введите число》');

read(x);

k:=0;

while x>0 do

begin

x:=x div 10;

inc(k);

end;

write('Количество цифр》',k);

end.