Предмет: Информатика,
автор: nbandit
Напишите программу,которая:
Определяет,сколько раз встречается в строке символов 'A';
Заменяет символ 'A' символом '*'
Ответы
Автор ответа:
4
Поставил на проверку русскую "а", если нужно английскую поменяйте в строчке с 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.
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.
Похожие вопросы
Предмет: Биология,
автор: saske5328
Предмет: Литература,
автор: amina02072010
Предмет: Английский язык,
автор: zykovegor275
Предмет: Математика,
автор: валентина50
Предмет: Обществознание,
автор: sergeijeremin