Сформировать новую строку, включив в неё 1, 3, 5, и т.д. нечётные слова

@AnastasiyaMalay · Регистрация: 16.03.2016

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

помогите написать программу в делфи

@Puporev · 02.05.2016, 09:35

А как выглядит исходная строка?

Добавлено через 6 минут
Если в строке слова отделены только пробелами, то так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var t:TstringList;
    s : String;
    k:integer;
begin
t:=TstringList.Create;
t.DelimitedText:=Edit1.Text;
s:='';
k:=0;
while k<t.Count do
 begin
  s:=s+t[k]+' ';
  k:=k+2;
 end;
Edit2.Text:=s;
end;

@AnastasiyaMalay 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 6
		1
	Сформировать новую строку, включив в неё 1, 3, 5, и т.д. нечётные слова 02.05.2016, 08:03. Показов 1198. Ответов 1 Метки нет (Все метки) помогите написать программу в делфи 0

	02.05.2016, 09:35

Сформировать новую строку, включив в неё 1, 3, 5, и т.д. нечётные слова

Решение