var s:String;
i,k:Integer;
begin
Write('Введите строку ');
Readln(s);
for i:=1 to Length(s) do
if s[i]='а' then k:=k+1;
Write('В строке ', k,' букв а')
end.
ReadlnString.Count(c -> c = 'а').Println
Пример приведен на скрине.
var s:String;
i,k:Integer;
begin
Write('Введите строку ');
Readln(s);
for i:=1 to Length(s) do
if s[i]='а' then k:=k+1;
Write('В строке ', k,' букв а')
end.
begin
ReadlnString.Count(c -> c = 'а').Println
end.
Пример приведен на скрине.