Подсчитать количество букв "о" в строке, введенной с клавиатуры - Pascal ABC
Формулировка задачи:
подсчитать количество букв "о" в строке введеной с клавиатуры и удалить их из этой строки
Решение задачи: «Подсчитать количество букв "о" в строке, введенной с клавиатуры»
textual
Листинг программы
{подсчитать количество букв "о" в строке введеной с клавиатуры и удалить их
из этой строки }
var
s: string;
k, i: integer;
begin
readln(s);
for i := length(s) downto 1 do
if s[i] = 'o' then
begin
inc(k);
delete(s, i, 1);
end;
writeln(s);
writeln(k);
end.
Объяснение кода листинга программы
{ Подсчитываем количество букв о в строке, введенной с клавиатуры и удаляем их из этой строки. }
var
s: string;
k, i: integer;
begin
readln(s);
for i := length(s) downto 1 do
if s[i] = 'o' then
begin
inc(k);
delete(s, i, 1);
end;
writeln(s);
writeln(k);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д