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