Хард- к<span>омпьютерный носитель информации</span>
Решение в прикрепленном файле.
Извини рисую я очень плохо думаю главное что б ты понял.
Program n1;
var n,m,p,k: longint;
begin
write('введите n: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('кол-во цифр: ',K);
end.