Дано предложение. Определить долю (в%) букв «а» в нем.Ребят помогите пжлст)

PascalABC.Net
взял символ английская   a
если что заменишь

var
s : string;
i,l,k : integer;
r : real;
begin
readln (s);
l := Length (s);
for i := 1 to l do
if s[i] = a then
   k := k + 1;
r := trunc(k/l * 100);
writeln (r,%);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!