Cклавиатуры вводится произвольная строка символов. группы символов, разделенные пробелами и не имеющие пробелов внутри, будем называть словами. написать программу, которая удаляет все слова с нечетными номерами. вывести полученную строку на экран. длина строки не более 100 символов.

126

206

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

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

Губотрах

Информатика

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

Решение, быть может и не тривиальное, но за 5 ломать голову, как это сделать "по-школьному" мне не захотелось. да и не требовалось по даже язык программирования не был указан. // pascalabc.net 3.1, сборка 1256 от 21.06.2016 begin var s: =readlnstring('> '); var m: =s.matches('(\s+)').select(x-> (x.index+1,x.value.length)); // получили последовательность элементов вида < позиция> < длина> , // отражающих положение слов в строке. var n: =m.count; // количество слов if n.iseven then dec(n); while n> 0 do begin var e: =m.elementat(n-1); delete(s,e.item1,e.item2); dec(n,2) end; writeln(s) end. тестовое решение > карл у клары украл кораллы клара у карла украла кларнет у украл клара карла кларнет

Raul020507

Информатика

4,5(28 оценок)

//скучное, школьное //pascal abc.net 3.1 сборка 1219 var s: string; i: integer; begin readln(s); s: =s.trim; i: =1; while i< =length(s)-1 do if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i); var ars: =s.split; s: =''; i: =1; while i< =ars.length-1 do begin s: =s+ars[i]+' '; i: =i+2; end; writeln(s); end. пример ввода: с понедельника точно начну писать документацию. вот пока немного годноты. пример вывода: понедельника начну документацию. пока годноты.