Question

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

Answer 1

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