Напишите программу,которая:
Определяет,сколько раз встречается в строке символов 'A';
Заменяет символ 'A' символом '*'
Определяет,сколько раз встречается в строке символов 'A';
Заменяет символ 'A' символом '*'
More Questions From This User See All
Answers & Comments
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.