Напишите программу,которая:
Определяет,сколько раз встречается в строке символов 'A';
Заменяет символ 'A' символом '*'

Поставил на проверку русскую "а", если нужно английскую поменяйте в строчке с ifvar a:string;i,count:integer;beginwriteln('Введите предложение;');read(a);for i:=1 to length(a) do beginif (a[i]='а') or (a[i]='А') then begincount:= count + 1;a[i]:='*';end;end;write(count);writeln(' раз встречается буква а.');writeln(a);end.