Дана строка .Определить :есть ли в данной строке буква "ш" (расская,маленькая буква) паскаль,помогите пожалуйста;)
Var S:string;
begin
Writeln(Введите строку);
If not(Pos(ш,S)=0) then
Writeln(буква ш есть)
else
Writeln(буквы ш нету);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
