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

Процент цифр можно найти, как процентное отношение количества цифр к длине строки, но при этом будут учитываться и пробелы. Если в строке есть символы, которые учитывать не надо, следует подсчитать количество таких символов и предварительно вычесть его из длины строки. В приведенной ниже программе для простоты считается, что учитываться должны все символы.

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