В строке, вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов

@НикиНикита · Регистрация: 16.01.2019

Author24 — интернет-сервис помощи студентам

В строке вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов.

@ZX Spectrum-128 · 26.01.2019, 18:18

Напечатать слова, стоящие на четных позициях

Добавлено через 54 секунды

Сообщение от НикиНикита

составить новое предложение из чётных слов.

Из слов, стоящих на четных позициях или из слов с чётной длиной?

@НикиНикита · 26.01.2019, 21:03 **[ТС]**

Длиной*

@Puporev · 26.01.2019, 21:19

Pascal

var s,s1,s2,sk,sd:string;
    i,j,k,mn,mx:integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s; //добавим пробел в начало для удобства
s2:='';
i:=1;
while i<length(s) do//идем по строке
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1) mod 2=0 then  //если длина четная
  s2:=s2+s1+' ';//в новую строку
  i:=i+length(s1);//перешагиваем через слово
 end
else i:=i+1; //пропускаем пробелы
if s2='' then writeln('В строке нет слов четной длины')
else writeln(s2);
end.

@НикиНикита 0 / 0 / 0 Регистрация: 16.01.2019 Сообщений: 57
		1
	В строке, вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов 26.01.2019, 18:14. Показов 1999. Ответов 3 Метки нет (Все метки) В строке вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов. 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	26.01.2019, 18:18	2
	Напечатать слова, стоящие на четных позициях Добавлено через 54 секунды Сообщение от НикиНикита составить новое предложение из чётных слов. Из слов, стоящих на четных позициях или из слов с чётной длиной? 1

@НикиНикита 0 / 0 / 0 Регистрация: 16.01.2019 Сообщений: 57
	26.01.2019, 21:03 [ТС]	3
	Длиной* 0

	26.01.2019, 21:19

В строке, вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов

Решение