Question

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

Answer 1

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

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