Помогите решить в Паскале. 60 бб
Напечатать по одному символу текста, непосредственно следующему за каждым из буквосочетаний ‘ой’. Предусмотреть случай, когда в тексте нет таких буквосочетаний.
Напечатать по одному символу текста, непосредственно следующему за каждым из буквосочетаний ‘ой’. Предусмотреть случай, когда в тексте нет таких буквосочетаний.
More Questions From This User See All
Answers & Comments
s:string;
i,n,k:integer;
begin
Writeln('Введите текст: '); Readln(s);
n:=Length(s); k:=0;
for i:=1 to n-2 do
if s[i] in ['О','о'] then
if s[i+1] in ['Й','й'] then
begin Write(s[i+2]); Inc(k) end;
if k=0 then Writeln('"ой" в тексте не встречается')
end.