Question

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

Answer 1

Поставил на проверку русскую "а", если нужно английскую поменяйте в строчке с if


var a:string;
i,count:integer;
begin
writeln('Введите предложение;');
read(a);
for i:=1 to length(a) do begin
if (a[i]='а') or (a[i]='А') then begin
count:= count + 1;
a[i]:='*';
end;
end;
write(count);
writeln(' раз встречается буква а.');
writeln(a);
end.