Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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