Составьте программу, подсчитывающую количество цифр вводимого вами целого не...

Question

Составьте программу, подсчитывающую количество цифр вводимого вами целого не отрицательного числа.
на абс паскале, пожалуйста

Answer 1

program n_1
s:string;
writeln('Введите число положительное целое ');
readln(s);
kol-vo:=length(s);
end.

Comments

var
a:longint;
kol:integer;
begin
writeln('vvedite chislo');
readln(a);
repeat
a:=a div 10;
inc(kol);
until a=0;
writeln('kolichestvo cifr=',kol);
end.

---

лучше 2-ю программу

---

спасибо