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.