Подсчитать количество цифр в произвольной строке
Program string_20-
uses crt-
var s : string-
kol,m : integer-
i,nd : byte-
begin
clrscr-
write(‘введите произвольную строку ‘)-readln(s)-
nd:=0-
for i:=1 to length(s) do
if s[i] in [‘0’..’9′] then inc(nd)-
writeln(nd)-
readln-
end.