Паскаль

1) Задана строка, проверить есть ли в этой строке буква "а"

2) задана строка, проверить сколько раз встречаться в этой строке буква "м"

3) задана строка, удалить из этой строки все буквы "и"

1)

var

s: string;

begin

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

readln (s) ;

if pos ('а', s) 0 then writeln ('В строке есть буква "а"')

else writeln ('В строке нет буквы "а"') ;

end.

2)

var

s: string;

i, a: byte;

begin

a : = 0;

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

readln (s) ;

for i : = 1 to length (s) do if s[i] = 'м' then a : = a + 1;

writeln ('В строке буква "м" встречается ', a, ' раз (а) ') ;

end.

3)

var

s: string;

begin

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

readln (s) ;

while pos ('и', s) 0 do delete (s, pos ('и', s), 1) ;

writeln ('Строка после удаления букв (ы) "и": ', s) ;

end.