Программа на pascal abc. с клавиатуры вводится маленькими буквами строка, необходимо для каждого символа вывести, а) сколько раз его употребили и б) частоту употребления (отношение а к длине строки, не считая пробелов). примечание 1. выводить только для маленьких букв, пробелы не трогать. пример. вводится строка 'раз два три'. нужно вывести: р - 2 раза, ч.у - 0.27 //округление до сотых ну и так далее. два раза один и тот же символ не выводить! вводить новые переменные можно в любом количестве.
len,i:integer;
st:string;
c:char;
ar:array['а'..'я'] of integer;
begin
readln(st);
for i:=1 to length(st) do begin
if (st[i] in ['а'..'я']) then inc(ar[st[i]]);
if (st[i] <> ' ') then inc(len);
if (st[i] = 'ё') then inc(yo);
end;
for c:='а' to 'я' do
if (ar[c] <> 0) then writeln(c,'- ',ar[c], ' ч.у - ',ar[c]/len:1:2);
if (yo <> 0) then writeln('ё', '- ', yo, ' ч.у - ', yo / len:1:2);
end.