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

Процент цифр можно найти, как процентное отношение количества цифр к длине строки, но при этом будут учитываться и пробелы. Если в строке есть символы, которые учитывать не надо, следует подсчитать количество таких символов и предварительно вычесть его из длины строки. В приведенной ниже программе для простоты считается, что учитываться должны все символы. const   digits=['0'..'9']; var   i,k,n:integer;   p:real;   s:string; begin   Writeln('Введите строку');   Readln(s);   n:=Length(s); k:=0;   for i:=1 to n do     if s[i] in digits then Inc(k);   p:=100*k/n;   Writeln('Процент цифр в строке равен ',p:0:2) end. Тестовое решение: Введите строку Самым большим водопадом в мире считается Анхель (Венесуэла), его высота 979м. Открыт в 1933г. летчиком Джеймсом Анхель. Процент цифр в строке равен 5.88