Помогите решить в Паскале. 60 бб Напечатать по одному символу текста, непосредств?
Помогите решить в Паскале. 60 бб
Напечатать по одному символу текста, непосредств??нно следующему за каждым из буквосочетаний ‘ой’. Предусмотреть случай, когда в тексте нет таких буквосочетаний.
Гость
Ответ(ы) на вопрос:
Гость Program zzz;
var t: string; l: integer; i, x: byte;
begin
writeln('введите текст');
readln (t);
l:=length(t);
x:=0;
For i:=1 to l-1 do begin
if (t[i]='о') or (t[i]='О') then
if (t[i+1]='й') or (t[i+1]='Й') then
begin writeln ('символ: ',t[i+2]); x:=1 end;
end;
if x=0 then
writeln ('буквосочетание ''ой'' не встречается');
end.
Не нашли ответ?
Похожие вопросы