Дана строка .Определить :есть ли в данной строке буква "ш" (расская,маленькая буква) паскаль,помогите пожалуйста;)

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

var S:string; begin Writeln('Введите строку'); If not(Pos('ш',S)=0) then Writeln('буква ш есть') else Writeln('буквы ш нету'); end.