Программа в Pascal 1.Написать программу которая определяет сколько раз в строке,введенной с клавиатуры, встречается буква м. 2.написать программу которая удаляет из строки, введенной с клавиатуры,все буквы о

Предыдущий
вопрос Следующий
вопрос

//Программа которая определяет сколько раз в строке,введенной с клавиатуры, встречается буква м

program CountM;
var
str: string;
countM, i: integer;
begin
countM := 0;

Write('Введите строку: ');
Readln(str);

for i := 1 to Length(str) do
begin
if str[i] = 'м' then
countM := countM + 1;
end;

WriteLn('Буква "м" встречается в строке ', countM, ' раз');
end.

//Программа которая удаляет из строки, введенной с клавиатуры, все буквы о

program RemoveO;
var
str, newStr: string;
i: integer;
begin
newStr := '';

Write('Введите строку: ');
Readln(str);

for i := 1 to Length(str) do
begin
if not (str[i] in ['о', 'О']) then
newStr := newStr + str[i];
end;

WriteLn('Строка после удаления букв "о": ', newStr);
end.