Составьте программу, подсчитывающую количество цифр вводимого вами целого не отрицательного числа.
на абс паскале, пожалуйста
program n_1
s:string;
writeln(Введите число положительное целое );
readln(s);
kol-vo:=length(s);
end.
Оцени ответ
