Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

В строке символов ,слова разделить пробелом ,если в ней встречается слово "воронеж" то заменить маленькую в на большую В

Ответ оставил Гость

var s:string; i:integer;

begin

read(s);

for i:=1 to length(s);

if s[i]=в and s[i+1]=о and s[i+2]=р  and s[i+3]=о and s[i+4]=н and s[i+5]=е and s[i+6]=ж then s[i]:=В;

writeln(s);

end.