Завдання:Ввести прізвище, ім'я,по батькові як одне дане строкового типу. 1)Чи...

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
var fio:=ReadlnString('Введите Фамилию Имя Отчество->');
var b:=0;
for var i:=1 to fio.Length-1 do
if (fio[i]='М') or (fio[i]='м')
then b+=1;
if b<>0 then Println('Буква "М" есть в строке. Она повторяется',b,'раз(а).') else Println('Буквы "М" нету в строке.');
end.

Пример:
1) Введите Фамилию Имя Отчество-> Миг Мария Моисеева
Буква "М" есть в строке. Она повторяется 3 раз(а).

2) Введите Фамилию Имя Отчество-> Петренко Петр Петрович
Буквы "М" нету в строке.