Напишите текст программы (любой язык программирования) для решения сле-дующей на пэвм: с клавиатуры вводится текстовая строка. найти в ней все предлоги «в» и заменить их на предлоги «на».

116

417

Посмотреть ответы 3

Ответы на вопрос:

troft

Информатика

4,4(13 оценок)

// pascalabc.net 3.1, сборка 1267 от 10.07.2016 begin var s: =' '+readlnstring('> '); s: =(s.replace(' в ',' на '))[2: ]; writeln(s); end. тестовые решения > можем пойти в кино, в театр, в кафешку, а можем посидеть в "знаниях" можем пойти на кино, на театр, на кафешку, а можем посидеть на "знаниях" > в лесу мы нашли вот такие грибы. на лесу мы нашли вот такие грибы.

kapov2017p0aak6

Информатика

4,4(39 оценок)

//pascal abc.net 3.1 сборка 1256 var s,s1: string; begin readln(s); if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s: ='на'+s; end; if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s: ='на'+s; end; while pos(' в ',s)< > 0 do begin if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s: ='на'+s; end; if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s: ='на'+s; end; s1: =s1+copy(s,1,pos(' в ',s)-1)+' на '; delete(s,1,pos(' в ',s)+2); end; if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s: ='на'+s; end; if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s: ='на'+s; end; s: =s1+s; writeln(s); end. пример ввода 1: запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь пример вывода 1: запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь пример ввода 2(глубокие песни современной отечественной эстрады): в в в в в в в в в в в в в в в в в в . пример вывода 2: на на на на на на на на на на на на на на на на на на .