Question

Дано натуральне число n визначити кількість цифр у цьому числі Паскаль

Answer 1

Var a,k:int64;
begin
k:=1;
writeln('Vvedite chislo');
read(a);
while a>0 do
 begin
 a:=a mod 10;
 k:=k+1;
 end;
write('V chisle',k,' tsifr');
end.